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Solve Your Paperwork Problem... 
Let WordPro Software Do The Work 


Using standard typing methods, hundreus of valuable hours are spent 
erasing, revising. and retyping letters and documents as you work 
towards a final draft copy. The second, third, or fourth drafts take just 
as long to type as the first! 

With WordPro word processing software you can transform your 
Commodore computer into a “state of the art’ word processing 
machine with sophisticated word processing features at an affordable 
price 

There are four versions of WordPro, ranging from the simple to the 
sophisticated. WordPro 1 on cassette will give computer enthusiasts a 
full range of text editing capabilities with cassette file storage. WordPro 
2is disk based and allows fast and easy file handling and manipulation 
WordPro 3 was designed for professionals and contains the many 
features required in a business environment such as global search and 
replace, headers, footers, decimal tabulation, repagination, merging 
Capabilities, and much, much more. WordPro 4 is our best. WordPro 4 
runs on the new Commodore 8032, 80-column display computer. 
WordPro 4 has all the features of WordPro 3, plus additional features 
usually found only on the most sophisticated and expensive word 
processing equipment. 

WordPro is a new breed of word processing software. Powerful, 
sophisticated, and easy to use, WordPro was field-tested by dozens of 
attorneys and commercial customers during 1979. WordPro is now 
installed and is saving its owners valuable time and money in hundreds 
of offices nationwide 

WordPro was designed with the user in mind. WordPro’s unique 
“STATUS LINE” constantly interacts with the user by displaying the 
status of the system. Editing, storing documents, recalling letters, even 
the most sophisticated comands, are accomplished by a few, easy to 
remember, keystrokes. 

You may find that WordPro alone is reason enough to own a computer. 
WordPro can be found at most Commodore dealers worldwide. Call us 
for the number of the dealer nearest you. If you cannot locate a 


stocking WordPro dealer you may place an order with Professional 
Software via check or VISA/MasterCharge. 


“WordPro is the most sophisticated Word 
Processing Software package available for the 
Commodore Computer line.” 
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Actual Photograph of WordPro on CBM Model 8032 

The many features of WordPro 1 - 4: 
WordPro 1 - Cassette based e Status line e Text Editing 
Insert/Delete e Screen Scroll Auto Repeat e String Search e 
Erase Functions e Link Files » Margin Controls e Tab 
Functions ¢ Justification e Page Length 


WordPro 2- Most WordPro 1 Functions Plus + Disk Based e 
Paragraph Indent e Centering e Text Transfer e Hyphenation 
* Appending * Margin Release « Variable Blocks (Form 
Letters) * Multiple Copies e Automatic Disk Commands 
Complete Disk File Handling 


WordPro 3 - Commercial Disk Version for 40 Columns e 
WordPro 2 Functions Plus + Global Functions (Search/ 
Replace/Copy) e Merging Disk File Linkagee 10 0r12Pitche 
Repagination ¢ Duplicate Lines e Auto Delete Word/Sen- 
tence/Range » Numeric Mode e Underlining » Continuous 
Print e Headers/Footers * Auto Page Numbering e Pro- 
portional Justification e Forced Paging » Non-Print Com- 
ments e BASIC Language File Compatibility 


WordPro 4 - Commercial Disk Version for 80 Columns 
WordPro 3 Functions Plus + Displays and Formats Text to 
Screen for Review 


WordPro 1 — For 8K RAM units. Requires C2N 
Peripheral/integrated cassette drive - $29.95 
WordPro 2 — For 16K RAM units with 40 column 
screen. Requires 2040 disk drive - $99.95 
WordPro 3 — For 32K RAM units with 40 column 
screen. Requires 2040 disk drive - $199.95 


WordPro 4 — For Model 8032 with 80 column screen. 
Requires 2040 or 8050 disk drive - $299.95 


All four versions of WordPro are written in 6502 machine code. 


Professional Software Inc. 
166 Crescent Rd., Needham, MA 02194 


(617) 444-5224 


*WordPro Dealer Inquires Invited* | 
WordPro was developed by Steve Punter of Pro-Micro Software Ltd., and is marketed exclusively by 


Professional Software Inc. 
WordPro is a registered trademark of Professional Sottware Inc. CBM is a registered trademark of 
Commodore Business Machines. 


| N ow you can add high 
resolution graphics 

to your Commodore PET 

computer. The MTU 
K-1008-6 GRAPHIC INTERFACE 
can be used with either old, new, 
or business PET computers. It is 
simple to use, and fits inside the 
PET for protection. 


The GRAPHIC INTERFACE gives you easy con- 
trol over each dot in a matrix which is 320 wide by 
200 high for a total of 64,000 dots. Because each 
dot can be controlled, either graphic images, text 
lines, or any mixture of the two can be displayed. 
Since each dot is controlled from software you can 
even design your own special character font or graphic 
image set (logic, chemical, architectural). 


INTERFACE TO ALL PETS - With separate connector boards 
for each style PET (K-1007-2 for OLD PETS, K-1007-3 for NEW). 
The K-1008-6 can be used with either. 

THREE TYPES OF VIDEO - You can select either normal PET 
video, graphic video, or the COMBINED image of both video sig- 
nals simultaneously! 

8K RAM MEMORY EXPANSION - The graphic matrix requires 8K 
RAM which is supplied onboard. This memory can be used for 
program or data storage when not being used for graphics (or see 
your program in binary on the display!). 


FLEXIBLY ADDRESSED ROM SOCKETS - Five ROM sockets are included 

on the board. They can be set at the same or different addresses, with you 

controlling which sockets are enabled at any time through software control. 

CAN NOW HAVE You also choose the sockets to be enabled when the PET is turned on. 

EXTERNAL EXPANSION - This board also creates the KIM memory expansion 

bus supported by all MTU products. This allows insertion into our K-1005-P 

card file for expansion up to 4 other boards outside the PET case. 

LIGHT PEN - The board has been designed to work with an optional light 

GRAPHICS pen which MTU will be announcing soon. 

SOFTWARE INTERFACED TO BASIC - MTU also has available machine lan- 
guage software to allow you to plot points, draw lines, and display char- 
acters at high speed. 


Call or write for our full line catalog of products. 


MICRO TECHNOLOGY UNLIMITED 
P.O. Box 12106 

2806 Hillsborough Street 

Raleigh, N.C. 27605 

(603) 627-1464 


PET professional 


‘Soar eae computer 


Micro Technology Unlimited 
P.O. Box 12106 

2806 Hillsborough Street 

Raleigh, N.C. 27605 
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Professional Business Software 


For The Commodore 32K Microcomputer System 
With 2040 Dual Drive Disk & 2022 Tractor Feed Printer 


General Ledger 


Holds Up To 300 Accounts 
Accepts Up To 3000 
Transactions Per Month 
Cash Disbursements Journal 
Cash Receipts Journal, and 
Petty Cash Journal for 
simplified data entry. 
Maintains Account Balances 
For Present Month, Present 
Quarter, Present Year, Three 
Previous Quarters, And 
Previous Year. 


Complete Financial Reports 
Including Trial Balance, 
Balance Sheet, Profit & Loss 
Statement, Cash Receipts 
Journal, Cash Disbursements 
Journal, Petty Cash Journal 
and more 

Accepts Postings From 
External Sources Such As 
Accounts Payable, Accounts 
Receivable, Payroll, 

Etc $295.00 


Accounts Payable 


e Interactive Data Entry With 
Verified Input And Complete 
Operator Prompting 


e Automatic Application Of 
Credit And Debit Memos 


¢ Maintains Complete Purchase 
Records For Up To 200 
Vendors 


e Invoice File Accepts Up To 


400 Invoices 


e Random Access File 


Organization Allows Fast 
Individual Record Updating 


e Multiple Reports Provide A 


Complete Audit Trail 


@ Check Printing With Full 


Invoice Detail 


¢ Full Invoice Aging 
e Automatic Posting To 


General Ledger $195.00 


Accounts Receivable 


Maintains Invoice File For Up 
To 300 Invoices. 


Accomodates Full Or Partial 
Invoice Payments. 


Customer File Maintains 
Purchase Information For Up 
To 1000 Customers. 


Allows For Automatic 
Progress Billing 


Provides For Credit And Debit 
Memos As Well As Invoices 


Prints Individualized 
Customer Statements. 


Interactive Data Entry With 
FullOperator Prompting 


Complete Data Input 
Verification And Formating 


Automatic Posting To 
General Ledger $195.00 


Payroll 


¢ Maintains Monthly, Quarterly, 


And Yearly Cumulative Totals 
For Each Employee. 


@ Payroll Check Printing With 
Full Deduction And Pay Detail 


e Sixteen Different Reports 
Including W2 And 941 


e Interactive Data Entry With 
Easy Correction Of Entry 
Errors 


e Automatic Data Verification 


© Complete Job Costing Option 
With Cumulative Totals And 
Overhead Calculations 


e Random Access File 
Organization For Fast 
Updating Of Individual 
Records 

e Automatic Posting To 
General Ledger $350.00 


Structured around the time tested and reliability proven 
series of business software systems developed by Osbome 
and Associates, these programs have been designed to fill 
the need of a comprehensive accounting package for the 
new Commodore PET micro computer system. Each program 
can either stand alone, or be integrated with the others in a 
total software system 

Designed with the first time user in mind, these programs 
lead the operator through step by step, verified data entry. It 
is impossible to ‘crash’ a program due to operator error or 
invalid data input. Design consistency has been maintained 
from program to program to greatly increase operator 
familiarity and confidence 

Documentation, normally a problem for small systems 
users, is provided by the comprehensive series of Osborne 


and Associates user manuals. These three manuals together 
total over 800 pages of detailed step by step instructions 
written at three levels for DP Department Managers, Data 
Entry Operators, and Programmers. You don't have to worry 
about getting ‘promises’ instead of documentation because 
the documentation was written before the programs 
were developed. A second set of manuals details any 
changes required during conversion. Each program 
provided on disk with complete documentation. Packaged 
in a handsome three ring binder with pockets and twelve 
monthly dividers for convenient storage of reports. 


See your nearest Commodore dealer for a demonstra- 
tion of this outstanding business software system. 


CMS Software Systems 


5115 MENEFEE DRIVE © DALLAS, TX75227 © 214-381-0690 
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The Editor’s 
Notes 


Robert Lock, Publisher/Editor 


Atari Marches On But 

Where Is Southern California? 

It appears that the Atari machines have really picked 
up in sales. Southern California notwithstanding, the 
feedback I’m getting is that dealers ranging from the 
bigger mail order houses to the local corner store are 
seeing a great deal of buying interest in the hardware. 
Now I’m talking about US sales only, in as much as 
Atari’s not really cranked up yet outside the US. 
And it honestly looks as if there’s movement. Cer- 
tainly makes the dealers happy, and COMPUTE 
also for that matter, in as much as we’ve been sup- 
porting the Atari since our beginning. It appears that 
the upsurge in buying began in mid to late June, and 
hasn’t let up. Okay, so why all this ballyhoo from 
here? I’m setting the stage for some comments on 
Southern California: 


The Background 

Southern California, as we all know, has long been a 
focal point for the state of the art in small computing 
activity. There’s much activity elsewhere of course, 
but Southern California has been active in develop- 
ing what I would describe as a more advanced 
market. If you look at the number of major firms 
based out there you’ll see a bit of what I mean. 

The Apple Phenomena 

This area enjoys an extremely active Apple market. 
In the LA area for example there must be dozens of 
dealers who are first and foremost Apple dealers. 

It appears that some of the dealers have ab- 
solutely refused to carry the Atari, even to the point 
of occasionally calling it bad names and describing it 
in perjorative terms. And with an area of such 
tremendous Apple loyalty, that seems understan- 
dable. But on with the story. 

The Feedback Cycle 


Given the nature of the small computer market, all 
of us who are involved in any way with the activity 
of marketing a productr or service to users and 
buyers of these small computers rely on various 
means of marketplace feedback to develop and main- 
tain marketing plans. 

From here, I rely on numerous inputs, including 
those from dealers and subscribers all over the US. 
I’ve run into several advertisers in the last few weeks 
who have traditionally relied on their dealer contacts 
in that area to provide some portion of their planning 
feedback. In each of these cases, both advertisers had 
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the clear and imminent opinion that the Atari 
machine was struggling, being clobbered by the Ap- 
ple, etc., etc., and so on. Now mind you, this isn’t 
the immediate concern. Everyone expects a new 
market (e.g. software or hardware for Atari) to be 
slow going at first. Their concern was the future of 
the machine, and by all tried and tested, locally 
valid, channels of feedback it appeared that Atari 
was in fact looking at a long up-hill struggle. 

But all of this was totally inconsistent with my 
feedback. Not only were dealers all over the country 
telling me the machines were really starting to move, 
but our Atari subscriber base has been growing at a 
faster and faster rate. Clearly somebody’s buying the 
machines, and if it wasn’t the forefront, the 
vanguard, of Southern California, then who was it? 


Aha! 

What I finally decided, and I welcome some com- 
ment, is that Atari is selling to the market they’ve 
said all along they wanted to sell to. The (frequently) 
non-technical, new consumer of computing equip- 
ment. That’s the market the machines are designed 
for and targeted at. The hobbyist market hotbed, 
Southern California with users with different needs, 
and dealers with different expectations, is not supply- 
ing good feedback on that market because Atari’s 
successfully reaching the one they’re aimed at. I 
think we may, after all, be achieving a new genera- 
tion in consumer computing. (o) 


You May Be Expiring... 


or 

Renewing Your Subscription 

To COMPUTE! 

If you’re an early COMPUTE! subscriber, your 
subscription may be running out. If your mailing 
label bears the code ‘‘11/80’’ or ‘‘12/80’’ then Issue 
#7, the November/December issue, is your last one. 
Don’t Miss An Issue 


Renew now by sending us your check or money 
order for your 1980 subscription. Please follow these 
simple guidelines. Mail your renewal check to COM- 
PUTE! P.O. Box 5406, Greensboro, NC 27403 
USA. Mark the envelope ‘‘Attention: Subscription 
Renewal’’. Include your current mailing label. If 
you’ve thrown your envelope away, please make sure 
that you include your name and address (especially 
your address) the same way you’ve been receiving 
the magazine. Check the new price schedule and in- 
clude a check, money order or Master Charge/Visa 
number with your renewal. 


|__ Information —| 


COMPUTE! 
Goes 


Monthly 


First Monthly 
Issue is 
January, 1981 


We're going monthly, by popular de- 
mand, and expanding the scope of 
COMPUTE! We're adding a special 
Gazette for Ohio Scientific machine 
owners, and a Gazette for the Single- 
Board AIM, KIM and SYM Owners. 
We'll maintain the same high quality, 
the same resourceful standards, that 
have taken our paid circulation from less 
than 2,000 at the beginning of this 
year (Issue 2) to over 1,000 for this 
issue (Issue 6)! 


New Pricing 
COMPUTE!s 
till A Bargain) 


A one-year (twelve issue) subscription 
to COMPUTE! is now $16.00 in the US. 
Canadian subscriptions are now $18.00 
(in US funds). Surface mail subscriptions, 
to everywhere else in the world, are 
now $20.00 in US funds. 


See The Reader's 
Feedback 
In This Issue 
for More 


COMPUTE! 
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The Reader’s 
Feedback 


Robert Lock, 
Publisher/Editor, and Readers 


In case you missed it in the Editor’s Notes, we’re go- 
ing monthly. Check there for a full timetable and in- 
formation on keeping your subscription current. 

Votes for Best Article in Issue 5 indicate that 
lots of readers like the current range of material in 
COMPUTE. Jim Butterfield took the honors with 
Mixing Basic and Machine Language. Second place 
went to Plotting With the 2022, closely followed by 
How to Program in BASIC with the Subroutine 
Power of FORTRAN and Assembly Language Pro- 
gramming with UCSD PASCAL. 

And now for the rest of the feedback ... 


Author Note 


A Commodore user makes this request: 

You should indicate on all machine language listings the 
ROM version... 

I agree. You should also indicate what machine 
you’re using, e.g. keyboard, etc. We're already hav- 
ing review problems trying to keep machine con- 
figurations matched up with software design, so 
when you send software for review, please indicate 
what it will run on. 


One More Author Plea 

Please present machine language programs with fluent ex- 
planations. If one now uses “‘BASIC”’ to program, how 
would one enter this program into PET using machine 
language? Please do not be afraid to offend us with simple 
explanations. 


On Merging Our Two 
Magazines 
What happened to Nuts and Volts? 


Include OSI in COMPUTE. My C2-4PMF has more in 
common with the Apple or PET than with a SYM... 

First of all, Nuts and Volts moved to compute II 
when we established that single- board computer 
magazine. Secondly, I admit that compute II wasn’t 
necessarily the place for OSI machines. 

Our ability to go monthly has in part been 
defined by the merger of our two magazines. We an- 
nounced in the August/September issue of compute 
II that we were merging the two magazines effective 


with the November/December issue of COMPUTE. 
In that issue, you'll find the return of the Single- 
Board Computer Gazette (covering the 6502 based 
KIM, SYM, and AIM systems), and the addition of 
an OSI Gazette. You OSI owners will in part deter- 
mine the stability of the OSI Gazette by your sub- 
missions, so get writing! 

Issue 7 of COMPUTE! (November/December) 
will be one united issue again, and in January you'll 
receive the first monthly issue of COMPUTE! 


And Coming Next Issue 

(Ouch! Groan!) 

I learned my lesson last time. Please understand that 
one of the advantages of waiting ’till the last minute 
to write my columns is keeping you as current as 
possible on ‘‘coming attractions’’. The disadvantage 
is that I got carried away in my enthusiasm last time 
round. Looking back, I must have said ‘‘And next 
issue we'll have...’’ 10 times in the first three pages. 
I blew it. I hereby officially announce that you 
should read such comments on my part as ‘‘And in a 
future issue we'll have...’’. That way if my en- 
thusiasm gets ahead of our collective abilities here 
you won’t be disappointed. 

In a future issue, we'll have those promised 
business reviews. I am very pleased to report that 
over 50 business users have signed up to review pro- 
fessional software. What we’re trying to do is get 
things rolling so that reviews will be the balanced 
opinion of several reviewers rather than the hasty 
overview of one. I apologize for my over enthusiastic 
promises last time. 


On The Quality of COMPUTE! 

I was fascinated to see that the most prevalent com- 
ment regarding our going monthly was ‘‘Yes, do ul, 
but only if you can maintain your current quality.’’ We 
pride ourselves on the quality of COMPUTE!, both 
in editorial quality and physical quality. That’s been 
our goal since we started the magazine in the Fall of 
1979, and we’re committed to maintaining that 
quality. As always, keep me posted on our progress. 


RG. le 1o 
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GET THE 
MOST OUT OF YOUR 
6502-BASED COMPUTER. 


Sams has three books written especially for the popular 6502-based 
microcomputers like the APPLE, PET, ATARI, OSI, SYM, AIM and KIM. If you 
own a 6502-based computer—or are thinking about buying one—let 
Sams help you get the most out of it. We make graphics, programming, 
interfacing and software design simple. 


Hl PROGRAMMING & INTERFACING THE 6502, WITH EXPERIMENTS. 

By Marvin De Jong. The more you know about programming and inter- 
facing, the more performance you can get out of your microcomputer. 
This hands-on guide to 6502 presents 80 carefully graded experiments 
to help you get the most out of your AIM, KIM or SYM. NO. 21654. $13.95 


I 6502 SOFTWARE DESIGN 

Leo Scanlon—a leading computer expert—simplifies software design. 
Takes you from fundamentals into more complex topics. Get more ver- 
satility out of your computer by learning to program it yourself. IN- 
CLUDES 89 TEST PROGRAMS! NO. 21656. $10.50 


Hl COMPUTER GRAPHICS PRIMER 

Mitchell Waite—one of the most popular computer authors—brings 
computer graphics into sharp focus. Shows you how to use a 6502- 
based computer to create complex drawings, plans, maps and 
schematics on a video screen. NO. 21650. $12.95 
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NEECO PROUDLY ANNOUNCES OUR 
NEW ONE YEAR WARRANTY 
ON ALL CBM COMPUTERS! 


“All CBM Computers purchased between June 15th and Sept. 15th 
will automaticall 


“Your complete source 
for all CBM Hardware 
and Software Products” 


CBM™ 8000 SERIES BUSINESS COMPUTERS 


The new Commodore 8000 series computers offer a wide screen 
display to show you up to 80-character lines of information. Text 
editing and report formatting are faster and easier with the new 
wide-screen display. The 8000 series also provides a resident 
Operating System with expanded functional capabilities. You 
can use BASIC on the 8000 computers in both interactive and 
program modes, with expanded commands and functions for 
arithmetic, editing, and disk file management. The CBM 8000 
series computers are ideally suited for the computing needs of 
the business marketplace 


CBM™ 8050 DUAL DRIVE FLOPPY DISK 

The CBM 8050 Dual Drive Floppy Disk is an enhanced version of 
the intelligent CBM 2040 Disk Drive. The CBM 8050 has all of the 
features of the CBM 2040, and provides more powerful software 
capabilities, as well as nearly one megabyte of online storage 
capacity. The CBM 8050 supplies relative record files and 
automatic diskette initialization. It can copy all the files from one 
diskette to another without copying unused space. The CBM 
8050 also offers improved error recovery and the ability to 
append to sequential files. 
HARDWARE SPECIFICATIONS 


The 8032 CBM Computer is now available! 
CG commodore \ 


FIRMWARE 


Dual Drives 
Two microprocessors 


Tracks 70 

Sectors 17-21 

Soft sector format 
IEEE-488 interface 


974K Bytes storage on two 
5.25" diskettes (single sided) 


DOS version 2.1 

Sequential file manipulation 
Sequential user files 

Relative record files 

Append to sequential files 
Improved error recovery 
Automatic diskette initialization 
Automatic directory search 


Combination power (green) and 
error (red) indicator lights 

Drive Activity indicator lights 

Disk Operating System Firmware 
(12K ROM) 

Disk Buffer (4K RAM) 


Command parser for syntax 
validation 
Program load and save 


cBM PRODUCT DESCRIPTION PRICE NOTE: CBM PRODUCT DESCRIPTION PRICE 
4008N 8K RAM-Graphics Keyboard-40 col $ 795.00 x 2040 Dual Floppy-343K-DOS 1.0 $1295.00 
4016N 16KN RAM-Graphics Keyboard-40 col. § 995.00 All Syl CBM Bi Dual Floppy-343K-DOS 2.0 $1295.00 
40168 16K RAM-Business Keyboard-40 col. § 995.00 production 8050 Dual Floppy-974K-DOS 2.0 $1695.00 * 
4032N 32K RAM-Graphics Keyboard-40 col. $1295.00 Poe iee § C2N Cassette External Cassette Drive $ 95.00 
40328 32K RAM-Business Keyboard-40 col. $1295.00 SAARC CBMtolEEE CBM to Ist IEEE Peripheral $ 39.95 
8016 16K RAM-80 Col-4.1 O/S $1495.00 IEEE to IEEE CBM to 2nd IEEE Peripheral $ 49.95 
8032 32K RAM-80 Col.-4.1 O/S $1795.00 operating system Man IEEE 300 Baud Modem $ 395.00 * 
2023 Friction Feed Printer $ 695.00 4.1/D0S 2.1 2.0 DOS DOS Upgrade tor 2040 $ 50.00 
2022 Tractor Feed Printer $ 795.00 4.00/S O/S Upgrade for 40 Column $ 100.00 


“Asterisks indicate fall delivery—all others are immediately available. 
SPECIAL OFFER ON CBM COMPATIBLE BUSINESS SOFTWARE! se 


Purchasing software has always been difficult due to the “you buy it - you own it” attitude of most 
vendors. We at NEECO, recognize this problem and can now, on all of the Software Packages listed, offer 
a full 30 day refund policy to NEECO’s customers. Now you can purchase with confidence. Buy it - try it; 
if the program package is not suitable for any reason, send it back to us within 30 days and we will refund 
the full purchase price—less shipping charges! 


SOFTWARE APPLICATION REQUIRES AUTHOR AVAILABILITY PRICE 
Word Pro | Word Processing 8K + cassette Pro Micro Immediate $ 29.95 
Word Pro Il 10K + 2040 99.95 
Word Pro til 32K + 2040 199.95 
Word Pro IV 8032 + 2040/8050 299.95 
BPI Integrated G/L Business 32K/8032 + 2040 BPI 360.00 
BPI Inventory : 53 TBA 
BPI Payroll * 

BPI Enhanced A/R i a 

CMS G/L CMS Software 295.00 
CMS A/R 195.00 
CMS A/P 195.00 
CMS Customer Mail List 195.00 
CMS Payroll F “i ; 350.00 
BMB Database All Business 32K/8032 + 2050/8050 BMB August/Sept 295.00 


*Wordprocessing Software requires output printer. We recommend the NEC Spinwriter ($2995) for letter quality 
“PET is a registered trademark of Commodore Business Machines. Small Keyboard PETS require a ROM Retrofit Kit 
Multi-Cluster is available in Canada from BMB Compu Science, P.O. BOX 121, Milton, Ontario, L9T2¥3 


NEECO (617) 449-1760 


NEW ENGLAND ELECTRONICS CO., INC. 
MASTERCHARGE OR VISA ACCEPTED 


“NEW ENGLAND's Largest 
Computer Showroom” TELEX NUMBER 951021, NEECO 
MON-FRI, 9:00-5:30 


679 HIGHLAND AVE. 
NEEDHAM, MA 02194 
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HEWLETT-PACKARD PLOTTER for CBM SYSTEMS 


The Hewlett-Packard 7225A is a compact and efficient 
graphics plotter that provides a cost effective solution to 
the need for professional hard-copy graphics. With the 
7225A, publication quality graphics can be drawn with 
clean and visually continuous ink lines. 

The HP 7225A can be user-adapted to a wide range of 
systems. By changing a “plug-in” unit, called a Personality 
Module, the 7225A will provide the appropriate interface, 
language, and graphics capabilities fora variety of desktop 
computers, computer systems, personal computers, ter- 
minals and intelligent instrument systems. This interface 
flexibility makes the 7225A the ideal plotter for many 
present and future configurations. 


THE 7225A 
GRAPHICS PLOTTER WITH OPTIONS: 
PERSONALITY MODULE Opt. 007 (15 pads of 8% * 11 in. paper, 
$2800.°° gpk aio(anpecriinens 
Interconnect Cables 4-Color Pen Pack (Red, Blue, Green, Black) 


Plotter Paper (100 sheets 812 x 11 in. grid) 
; bes pees a Plotter/Printer ROM Handbook 


The following peripherals and accessories are IN STOCK AT NEECO: 


1. AXIOM PRINTER © Complete PET graphics 


» | == © Plug compatible 
e Electrostatic paper 
40 or 80 columns 


Plug compatible 
INTERNAL MEMORY Dynamic low heat memory 16K = $299.00 
EXPANSION UNIT Proven reliability 24K - ‘379.00 
No adaptor needed 


Complete PET graphics 
Separate keypad 

Plug compatible 

With cover 


*8K-2001 with original keyboard and built-in cassette 


N EECO NEW ENGLAND ELECTRONICS CO., INC. (61 7) 449 =1 760 


679 HIGHLAND AVE NEW ENE neue MASTERCHARGE OR VISA ACCEPTED 
; Computer Showroom TELEX NUMBER 951021, NEECO 
biel pis ie MON-FRI. 9:00-5:30. E.S.T. 
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Computers 
And Society 


David D. Thornburg and Betty J. Burr 
INNovision 

P.O. Box 1317 

Los Altos, CA 94022 


This month we want to bring you up to date on two 
shows we attended. One of us (BB) attended the 
American Society for Training and Development na- 
tional convention in Anaheim, and the other (DT) 
attended the summer International Consumer Elec- 
tronics Show (CES) in Chicago. Both of these shows 
had many small computer systems on display. By 
looking at these products at trade shows and conven- 
tions, we get to see developments before they become 
available at the corner computer store. We were suf- 
ficiently excited by what we saw to want to share our 
perspectives with you. 

The following report presents Betty's view of the 
ASTD convention: 

Does anyone remember CAI? The darling child of 
the late 60’s and early 70’s, computer assisted in- 
struction has been struggling for its life for the past 
decade. Suffering from high costs as school budgets 
became increasingly tight, CAI never quite justified 
its existence or fulfilled the promises of early 
dreamers. In the latter part of the 70’s the big guns 
in CAI turned to the adult education market and 
aimed at big business and industrial training. (Train- 
ing is that skills-increasing activity engaged upon by 
people within a business or industry. Adult education 
may cover some of the same subjects, but it is con- 
ducted in a school or university.) Control Data Cor- 
poration took its successful Plato-for-schools and 
created Plato-for-industry. Boeing’s Computer Ser- 
vices division offered training in all computer related 
subjects. 

The applications still seemed limited. The CAI 
offered by these companies required either that the 
learner go to a centrally-located learning center to 
use a time-sharing terminal, or install such a ter- 
minal at company facilities. In my opinion, CAI, 
with all its promises, was just limping along. 

A few months ago, I found out that CAT is in- 
deed alive and well, and living in the personal com- 
puter industry. General applications in industrial 
training may be as close as tomorrow. 

At the end of April I attended the national con- 
vention of the American Society for Training and 
Development, held in Anaheim, California. Among 
the more than 700 vendors of training hardware and 
software were several who displayed very exciting 
uses of personal computers in training for business 


and industry. 

I am excited about what I saw because I wear at 
least two hats in this world. I am a computer en- 
thusiast who has spent over three years in a research 
center watching people playing with CAI and playing 
with it myself. I am also a training director who is 
concerned with helping people learn and retain 
knowledge in the most efficient way. Until my April 
trip, I did not believe that the computer was efficient 
or cost effective. I may now be wrong. 

What follows in this column is a brief descrip- 
tion of what I saw and some caveats. I should point 
out that what I saw is not all that is available in the 
world for CAI for industry. Some vendors may not 
have attended this convention. I may have walked 
right by others. To all left out, my apologies. Write 
to me at Innovision and I’ll be glad to take a look at 
your product and include it in a later column. 

Let’s start with a look at some of the hardware, 
because there was more of that than software. (One 
of the major problems I see with the use of com- 
puters in business training is that canned programs 
are not widely available.) 

One of the exciting applications of the 
microprocessor was created by Videodetics 
(Anaheim, California). They have harnessed the 
technology by marrying it to videotape to create pro- 
grammable video tape. Providing automatic search- 
out and playback of specific sections of tape, the 
controller-indexor system creates an interactive learn- 
ing situation. The lesson creator programs in a series 
of questions, the answers to which lead the learner 
down various videotape paths. The learner is either 
praised or corrected (or both), as the lesson pro- 
gresses. The unit makes possible such activities as 
reciprocating multiple-choice tests, reinforcement of 
correct responses, and remediation of incorrect 
choices. 

With this product trainers can upgrade video- 
tape equipment (if compatible) to allow learner con- 
trol for a very low cost (between $550 and $700). 
The company is currently polishing a random access 
version of the controller, which should lend even 
greater flexibility to the system. The developers point 
out that the unit has also been used very successfully 
in point-of-purchase sales presentations, so it may 
serve a dual function in some businesses. In addi- 
tion, the videotape visual display has the advantage 
of interest and color over the standard monochrome 
CRT normally associated with the CAI environment. 

Recognizing the value of the videotape medium 
when compared to CRT only, Comco Creative In- 
dustries has interfaced an Apple (obtained from Bell 
and Howell) with a 3/4 inch video cassette to present 
an answer to the problem of boredom without loss of 
the advantages of conventional CAI. The box which 
accomplishes the jumping and linking of tape and 
computer units will cost, I am told, something 
around $1000. 


| Judge this character generator for yourself e 


Compare the two Snoopys and e@ 
you'll begin to see why the new 
HAL PCG 6500 is attracting so 
much attention. It’s the program- e 
mable character generator for your 
PET that gives sharp, detailed 
graphics. 


Important features include: 


© Storage for 64 new characters 

@ Built-in CB2 sound amplifier that produces all 
tones in the human hearing range 

@ PCG Manual and demo program 

HAL GRAPHICS @ Interface to PET/CBM with 24 pin character gen- 


atl erator ROMS. (If your PET uses 28 pin ROMS, 
sem Re Conversion Kits are available for $45. To simplify 
ae op $s ordering, please indicate memory RAM #2114 
e ee pe pe xo or #6550.) 


The HAL PCG 6500 is available exclusively at 
Systems Formulate 


Or? gO 95 
‘i eo Only *200 . 


> Add $45 for 28 pin Conversion Kit 


MIPLOT: the right plotter at the right price 


Designed for straight forward interface to any ® 
microcomputer that outputs the ASC1l1 code, 
MIPLOT can even be used by operators with no 
plotter experience. 


de outputs character data as-is 
mly available hard fiber-tip pens @ 
speed approximately 2 inches per 


second 
© Built in self-test mode 


e MIPLOT by Watanabe Corporation Only $ 1 200 e 


at Systems Formulate Cdrporation 
(plus shipping & handling) 


. ADCOM Light Pen (with sound) ... Only *3495 


(plus $2 shipping & handling) 


Unlike many light pens, the ADCOM interfaces @ Ready to plug in, no assembly necessary. 
e with PET through the second cassette port rather © Faster than many other light pens designed for PET. e 
than the parallel port. The result? Sound! © Built-in sensitivity control. 


© Machine language and demo program included for ease 
of programming. 


Expand with the finest in micro peripherals, systems and software from Systems Formulate. 
Call today for more information or to place your phone order: (415) 326-9100 


e We honor Master Charge, Visa, check or money order. t ) 
(California residents add 6.5% tax) 


SYSTEMS FORMULATE CORPORATION 


39 Town & Country Village @ Palo Alto, California 94301 
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The Bell and Howell system (designed around 
their version of the Apple II) comes with their own 
variety of PILOT (Mark-PILOT) as the CAI 
language. It contains both authority and presentation 
systems. Authors may use color graphics and anima- 
tion with this system. Representatives at the conven- 
tion were talking about a price of between $5,000 
and $7,000 for the whole package. 

The advantege of this system over the interactive 
video tape lies precisely in the greater variety of 
teaching techniques possible with the computer pro- 
grams. While the system does require the instructor 
to spend some development time on-line with the 
lesson, it may be no more than that required for 
development of in-house training materials. But all 
such efforts are very time consuming. I remember a 
figure of 40 hours development time for each one 
hour of student program given to me several years 
ago by the Plato people at the University of Illinois. 

Is this effort cost effective? Paper programs also 
take many hours, but the equipment is cheaper. I 
believe, however, that the potential impact upon the 
learner may be great enough to warrant the addi- 
tional costs. Also, with this new generation of CAI 
equipment, costs are plummeting and the machines 
are becoming multi-purpose. After all, if you’re go- 
ing to have a personal computer in your home or of- 
fice, you might as well use it to learn something. 

While the personal computer based CAI units 


such as the Camco system are the logical competitors 
to the Plato and Boeing time-shared learning 
systems, other, more powerful, stand-alone systems 
are also being offered. One interesting-looking unit 
was shown by Regency Carroll of Champaign, II- 
linois (the home of Plato). It’s language, USE, allows 
judging, help sequence branching, selective erase, 
and animation. They do not, I believe, have a video 
tape interface. My recollection of their system is that 
it is considerably more expensive than the Camco 
system, albeit more powerful. While the developers 
may claim an apples and oranges comparison, I 
believe that training people will go for the lower end 
machines because of the lower initial costs, especially 
if they are able to interface these systems with ex- 
isting video tape equipment. 

With all of the systems I saw, however, I felt the 
same frustration. After spending two years as a one- 
person training department, I know the enormous 
value of canned programs. I would much rather buy 
something than spend the time developing it in- 
house. So I look for quality programs. My search 
through the convention exhibit hall for quality pro- 
grams for the computer systems led to very little. I 
found only one company, Educational Programming 
System, of St. Louis, who offered CompuCourse pro- 
grams. These combine text and automated activities 
such as using the computer to set up an actual 
budget in a budgeting course. Their diskettes will be 


Intelligent, fast 
11x17 Graphic 
Plotting 


for the 


Commodore 
PET/CBM° 


Com-plications C102 X-Y Plotter Adapter 


Increases piotting speed by a 
factor of 2 to 5 

Provides printed program or 
data listings 

Uses print statements — no 


Low cost, intelligent, high speed graphic, hardcopy for the Commodore 
PET®/CBM®is now a reality. The combination of the Com-plications™ C102 
Interface Adapter and the Watanabe “MIPLOT” intelligent plotter gives the 
Commodore computer sophisticated plotting capabilities: Programming is 
accomplished with BASIC 


PET® and CBM® are registered trademarks 
of Commodore Business Machines, Inc. 


assembly programming 


ianguage PRINT statements, 


not assembly language. Axis 
generation, character rota- 
tion, vector generation and 
other functions are proce- 
dures built into the plotter. 
Cail for a deaier package. 


Compatible with all IEEE-488 
(1978) controllers 
industrial-quality construction, 
72-hour burn-in 

Complete graphic software 
package availabie 


F.1. ELECTRONICS 


968 Piner Road 

Santa Rosa, Ca 95401 
Telephone: 707-527-0410 
Telex: 33-7769 
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available for the Apple II or II + and for the 
TRS-80, and will be sold in retail stores in October. 
Their first available program will be in Personal 
Financial Planning, costing $95. Other titles they 
plan include: Managing Corporate Cash; Long 
Range Planning; Advertising: Strategy and Design; 
Writing for Successful Management; and How to 
Build Memory Skills. 
These subjects are included in the curriculum 
for many companies. It will be interesting to see 
whether other software suppliers jump on the band- 
wagon to prepare materials for industrial-placed per- 
sonal computers. Right now it seems to be a wide 
open field. Only the manufacturers of the computers 
themselves and a few software companies have pro- 
vided any learning programs. Atari and SRA have 
agreed to develop software for schools, pre-school 
through university. But specific ‘‘training’’ programs 
are yet to come. I believe that if the personal com- 
puter is to make an impact on the world of business 
and industrial training, software developments must 
keep up with hardware developments. I’m hoping 
that they will. CAI will really have come of age then. 
While educational and industrial applications for 
personal computers are growing at a rapid pace, we 
have yet to see the true ‘‘Shome computer’’ market 
open up. Most people who have computers in their 
homes use them for business applications, or as a 
hobby. The Consumer Electronics show is an in- 


teresting showcase of technology for the home. The 
presence of personal computers at this show indicates 
a feeling that someday soon the true consumer 
market for computers will become a reality. It is 
worthwhile for computer vendors to plan for this 
market, since, once the market develops, personal 
computer sales might rival those of color televisions. 
With the view of someone looking at incipient com- 
puter sales of several million units a year, let’s look 
at Dave’s perspectives on the CES: 

The June CES is the second of two international 
consumer electronics shows presented in the United 
States every year. While exhibited products included 
almost any entertainment item which uses silicon, it 
is interesting to see how this show is becoming a 
showcase for Personal Computers. Since the birth of 
the ‘‘appliance grade’’ personal computer in 1977, 
attendees of these consumer electronics extravaganzas 
have had to include computers in the list of products 
which are capturing the hearts and minds, if not the 
pocketbooks, of a growing fraction of consumers all 
over the world. 

While the time has not yet arrived for the com- 
puter to be considered a common household ap- 
pliance, the incipient emergence of several well sup- 
ported information utilities suggests that it will not be 
long before computer sales exceed 1,000,000 units 
per year, and the long-awaited emergence of ‘‘home’’ 
computing becomes a generally accepted phenomenon. 


Letter 
Quality 
Word 
Processing 
for the 
PET/CBM° 


Designed specifically for NEC 
5530P Spinwriter 

Fully compatible with all 
“Word-Pro” software 


Drives any Centronics- 
compatible (parallel) printer 
Compatible with all PET®/CBM® 
peripherals : 
Uses print statements— 

no assembly programs 

Industrial quality construction, 
72-hour bum-in 


Word-processing is the fastest growing segment of the micro-com| 

market. Small businesses, sales organizations, lawyers, physicians, 
publishers and a myriad of other potential users are prospects for 
Commodore PET®/CBM® computers and NEC “Spinwriters” with the new 
Com-plications™ C101 printer 
adapter. The C101 is manu- 
factured by an_ industrial 
electronics company to 
industrial quality standards. 
Can your customers afford 
anything less? Call or send 
for a dealer package today. 


PET® and CBM® are registered trademarks 
‘of Commodore Business Machines, Inc. 


F.. ELECTRONICS 
968 Piner Road 

Santa Rosa, Ca 95401 
Telephone: 707-527-0410 
Telex: 33-7769 
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As in past shows, Texas Instruments continued 
to stress the versatility of their 99/4 computer in ap- 
plications including speech output and connections to 
the Source and MicroNet information utilities. 
However, TI apparently has not received the market 
acceptance they had hoped for, and it will be in- 
teresting to see how effective they are at surviving in 
an industry which has seen several fine products 
withdrawn from the market. According to several 
cottage industry people interviewed at the show, a 
major frustration with the TI computer arises from 
the lack of a way to generate and call machine 
language subroutines from BASIC. From a human 
factors point of view, I found it distressing to see 
lower-case characters properly displayed on the 
screen (from a Source data base) while there is no 
provision for the entry of lower-case letters from the 
computer keyboard. 

The APF Imagination Machine remained un- 
changed in the past year, with their emphasis being 
placed on peripherals on marketing schemes. 

While many of the characteristics of this 6800-based 
computer are quite nice (single keystroke BASIC 
keywords, excellent keyboard feel, etc.), the ex- 
cessively large size of the computer combined with an 
indistinct display makes this computer less appealing 
than it might otherwise be. 

Ohio Scientific presently provides one of the 
widest product lines available, ranging from a small 
personal computer to a conventionally packaged 
minicomputer. The 6502-based C-1P and C-1P/MF 
computers have been given a new plastic housing in 
apparent preparation for their presence in Mon- 
tgomery Wards’ stores all over the country. At a lit- 
tle over $1000, the C-1P/MF is probably the lowest 
price computer with a floppy disk. 

At the other extreme in cost, the HP-85 desk-top 
computer with built-in 5’? CRT was well displayed 
by Hewlett-Packard in a booth which, to my eyes, 
was sparsely attended. It may be that the CES is the 
wrong place to show a $3250 computer whose 
features seem not too far removed from those of com- 
puters selling for thousands of dollars less. 

The Compucolor disk-based computer system 
from Intelligent Systems Corp. has perhaps suffered 
from styling problems - especially when compared to 
the more expensive Intecolor computers also 
manufactured by ISC. However, through the 
miracles of modern packaging, the Compucolor com- 
puter has been given a face lift and now looks amaz- 
ingly like its larger brother. 

As in the past shows, the Atari 400 and 800 
computers continue to draw large crowds. The use of 
dedicated display and sound processors serves to ex- 
tend the power of the 6502B microprocessor to give 
these computers the finest color and sound capability 
shown at the CES. While much of the Atari display 
was devoted to their ability to connect to home infor- 
mation utilities and to play very sophisticated 


animated games, they did introduce a light-pen at- 
tachment and also demonstrated some educational 
software developed for Atari by SRA, a division of 
IBM. 

Among the several new computers introduced at 
the June CES, one of the most interesting entries 
was the Sinclair ZX-80. This Z-80-based computer 
(which weighs only slightly more than its instruction 
manual (320 g vs. 250 g)) contains a full typewriter- 
like keyboard (membrane type), 1 KB of RAM anda 
4 KB BASIC. Keywords are entered with single 
keystrokes, and the syntax of each line entry is con- 
tinuously monitored. It is almost impossible to get 
the computer to accept a syntactically invalid line of 
code. The ZX-80 connects to the UHF input on a 
black and white TV and displays 24 lines of 32 
characters. As an indicator of the attention paid to 
low-cost design, conversion of the ZX-80 from the 
European PAL to the U.S. NTSC TU standard is 
accomplished by the addition of a single diode. Since 
power (9 V DC) is provided from an outboard plug- 
mounted power supply, the ZX-80 can be used 
almost anywhere. Rather than sell this product 
through stores, the initial Sinclair marketing plan is 
to sell the ZX-80 from England, fully assembled, for 
$199. Presently, the ZX-80 only supports an integer 
BASIC, but an 8 KB floating point BASIC is in 
development. Since external RAM can be added to 
bring the computer to 16 KB, the ZX-80 may create 
a totally new market. Since new markets appear to 
be Mr. Sinclair’s forte, this product bears watching. 

An even smaller computer was introduced by 
Panasonic: the HHC hand held computer. The cen- 
tral unit (which will retail for about $400) is about 
the size of the Craig translator. This unit contains a 
6502 microprocessor, 1 KB of RAM and slots for up 
to four ROM cartridges. In addition to pre- 
programmed functions (information terminal, 
language translator, etc.), ROM packs will be 
available for languages such as FORTH and EASIC. 
The main unit contains a full complement of keys 
(although with the wrong spacing for easy typing) 
and has a liquid crystal one line display (24 
characters, upper and lower case dot matrix). The 
addition of myriad peripherals. Among the 
peripherals demonstrated at the show, I saw the TV 
adaptor which buffers and displays a screen full of 
information in color. A small printer, a 
modem/acoustic coupler, and RAM expansion units 
were also shown. RAM units contain their own bat- 
tery backup thus allowing users to create their own 
‘‘firmware’’ for this sytem. While the main unit is 
nicely packaged, the expanded system has an ‘‘Erec- 
tor Set’’ quality to it that detracts from its overall ap- 
pearance. Nonetheless, the emergence of this product 
along with the Sinclair ZX-80 shows that there is still 
room for experimentation in the personal computer 
market. 

Commodore’s exhibit stressed their watches and 
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calculators, with one 80-column CBM computer on 
display. Hidden behind a smoked plastic screen, 
however, was the Commodore VIC - an as-yet ex- 
perimental computer designed to connect to a color 
TV. If VIC becomes a product soon (and I hope that 
it will), this compact 6502-based machine is certain 
to capture the hearts of thousands of users. Sized on- 
ly slightly larger than the Sinclair computer (and us- 
ing the ‘‘old’? PET keyboard), VIC is designed to 
sell, with 4 KB of RAM, in the $400 range. If it uses 
nearly the same BASIC used in the rest of the CBM 
world, strong cottage industry support is virtually 
guaranteed in advance. Through products of this 
type, Commodore is retaining their commitment to 
the low-end market while broadening their product 
line to compete with machines such as the IBM 5120. 

In June of 1979, Casio showed their versatility 
as a company by introducing the Casiotone profes- 
sional music synthesizer. This departure from their 
traditional watches and calculators was followed this 
year by the introduction of the FX-9000P, an 
8080A-based computer whose packaging closely 
resembles that of the HP-85. A crisp built-in high 
resolution 5’? CRT display (32 characters by 16 
lines, 256 by 128 pixels) is capable of mixed text and 
graphics applications. When this computer comes to 
market early next year, it is expected to retail for 
$900 with a ROM BASIC. The built-in 8 KB RAM 
can be supplemented with plug-in modules. The user 
can choose between 16 KB dynamic RAM cartridges 
or 4 KB RAM cartridges with battery back-up. As 
with the Panasonic entry, programs can be written 
into removable RAM cartridges and treated like 
ROM-based firmware. A tape cassette interface is 
available along with a real-time clock with calendar 
and alarm. Several parallel and serial interfaces are 
available to allow connection to printers, disk drives 
and modems. In other words, the FX-9000P is a 
serious small computer priced to sell by the 
thousands. The physical resemblance of this com- 
puter to the HP-85 is striking. At a $2600 price ad- 
vantage over the HP entry, the Casio FX-9000P was 
the recipient of much well deserved attention. 

While the Mattel Intellivision has been shown 
with a full keyboard attachment for more than a 
year, there has been much speculation regarding the 
reasons this portion of the product has not been in- 
troduced commercially. Early plans were to not make 
the Intellivision user programmable. As of the June 
CES, a new philosophy is apparent. The Intellivision 
keyboard unit (designed to retail for $500) will con- 
tain a 6502 microprocessor with 16 KB of RAM and 
running what appears to be a full extended Microsoft 
BASIC. Since the display portion of this product 
(housed in the video game unit) contains a 16-bit GI 
computer and the ‘‘Teleview’’ information utility 
chip set, this new product may leverage its way into 
a broad share of the market. 

Several companies who have personal computers 


ACCOUNTING 
SOFTWARE 
FOR YOUR 
APPLE 


GENERAL LEDGER 
If you are a business person who is looking for ultimate 


performance, take a look at this outstanding General Ledger 
package from Small Business Computer Systems. 

Our package features six digit account numbers, plus thirty- 
one character account names. We have ten levels of subtotals, 
giving you a more detailed income statement and balance 
sheet with up to nine departments. Either cash or accrual 
accounting methods may be used. The cash journal allows a 
thirty-three character transaction description and automatical- 
ly calculates the proper offsetting entry. You may print the 
balance sheet and income statement for the current month, 
quarter, or any of the previous three quarters. Also, this 
year's or last year’s total are included on the income 
statement, depending on the current month. 

There is virtually no limit on entries, since you may process 
them as often as you like. Two thousand (1,000 from G/L. 
1,000 from any external source) can be processed in one session. 

ACCOUNTS RECEIVABLE 

Sound business management requires you to keep up-to-date 
reports regarding the status of your accounts receivable. 

Now, from the same company that revolutionized accounting 
on the Apple II computer, with their conversion of the 
Osborne/McGraw-Hill Geleran Ledger program, you may now 
obtain the Accounts Receivable package you have been 
waiting for. 

Our package allows you to assign your own alphanumeric 
customer code up to six characters. Date of the last activity, 
as well as amounts billed this year and last year are 
maintained. This Accounts Receivable system maintains six 
digit invoice numbers, six digit job numbers, invoice amount, 
shipping charges, sales tax (automatically calculated), total 
payments as well as progress billing information. You may 
enter an invoice at any time; before it’s ready for billing, after 
you have billed it, and even after it’s paid. This package also 
prints reports which list the invoices you have not billed yet, 
open items paid items, and an aging analysis of open items. 

In the final analysis making your bookkeeping easier is 
what our software is all about. With our General Ledger 
package you can format your own balance sheet and income 
statement. Department financial statements may be formated 
diferently. You have complete freedom to place titles and 
headings where you want them, skip lines or pages between 
accounts and generate subtotals and totals throughout the 
reports — up to ten levels if you need them. Accounts 
Receivable is designed to provide you with complete up-to-date 
information. The program will print customer statements as 
well as post invoice amounts to any of the accounts 
maintained by our General Ledger package. These packages 
will support any printer/interface combination. General Ledger 
requires one hundred ten columns, Accounts Receivable 
requires one hundred thirty columns. 

Suggested Retail: 
Individually é $180.00 
Together ..... $330.00 
Available from your local Apple Dealer or contact SBCS 


SMALL BUSINESS COMPUTER SYSTEMS 
4140 Greenwood 
Lincoln, Nebraska 68504 
(402) 467-1878 
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on the marketplace chose to not display their wares 
at the CES. For example, since Radio Shack com- 

puters are not available for sale through non-Radi 

Shack stores, they do not display their wares at the 
CES. 

Apple Computer, however, has used the CES as 
a showcase for their products. This June, Appi 
relied on full page advertisements in the trade 
dailies, and did not have an exhibit on the floor. One 
could conjecture that the recent introduction of the 
$4,000 + Apple II at the National Computer Con- 
ference (NCC) was considered to be adequate ex- 
posure, especially since this new product is probably 
not geared towards the type of markets addressed by 
the majority of the buyers who attended the CES. 
Judging from their advertising, however, it is clear 
that Apple is planning to maintain their strong posi- 
tion in the $1,000 personal computer marketplace. 

The Exidy Sorcerer was not on display either, 
although this was probably due in part to the for- 
thcoming acquisition of this product line by another 
company. 

Another computer which was not displayed was 
the Sharp PC-1211 hand held computer. This $200 
CMOS computer has a complete keyboard and 24 
character liquid crystal display. While the product is 
available in Japan and Europe, it is rumored that 
Sharp has elected to not introduce this product in the 
U.S., but to wait until a later version is ready, 
perhaps by next year. Since the Sharp PC-1211 sup- 


ports a serial I/O port, an attachment is available for 
storing data and programs on a conventional tape 
cassette. Unlike Panasonic, however, Sharp is ap- 
parently not ready to introduce the communications 
and printer options which are probably very impor- 
tant selling points for these machines. I have received 
one of these computers from Japan and have found it 
to be very nice to operate, both from a hardware and 
software point of view. The resident BASIC is well 
designed for scientific calculations, although string 
operations are quite limited. It will be interesting to 
see if another vendor picks this product up as a 
private label item, thus gaining income for Sharp 
without forcing their hand too early. 

What message, if any, can one glean from all 
this information? For one thing we know that com- 
puter manufacturers have a long way to go before 
their products will appeal to the average consumer. 
The trends towards simpler and easicr to use com- 
puters are evident. Communications (in the form of 
connections to information utilities such as the 
Source and MicroNet) are perceived as being of 
paramount importance to consumers, and the 
development of high quality software is becoming 
more evident. It may take a year or so, but before 
the end of this decade, the personal computer revolu- 
tion will come home. You, as a personal computer 
enthusiast, have a head start on what promises to be 
a most exciting future. (o} 


Computer House Div. 
Announces 


Programing Tools 
For the Commodore/ Disk 
“SCREEN DUMP/REPEAT” — $35.00 
In Machine Language, Dumps anything on CRT 
to Printer. Repeat Simulates Repeat on 8032 for 
8K, 16K & 32K #2001. 

“VARI-PRINT” — $25.00 
Prints a Listing of all variables and every line 
number where each occurs. 

“DOCU-PRINT” — $20.00 
Similar to Screen Dump except in Basic for use 
within your own program. 

“FET/RECOVER” — $65.00 
File Editing Tool; Examine Data Files, Fix 
Destroyed Pointers, Sectors may be read, 
Modified, Displayed or Written — Also Files may 
be Re-chained. 

“SUPER RAM” — $20.00 
Diagnostic Routine Checks Every Possible RAM 
Address on 8K, 16K & 32K CBM Computers. 
Available on Diskette right now..... 


“SCRUNCH” — $36.00 
For Apple Il or Apple II Plus. Compacts Basic 
Programs up to 20%. 


Programs for Commodore / Apple 


“Legal Accounting’... sis sss nese s $1200.00 
“A/R, A/P, Job Est. & Job Cost...... 310.00 
“Political Party Mailing List’.......... 


ENGINEERING & MACHINE SHOP 


“Machine Part Quoting’’.............. $280.00 
“Trig & Circle Tangent’.............. 70.00 
“BON CHCl e  warcsseencne he evapora ae eee es 25.00 
“Spur Geate sy cicenegsxg oases 4eeeas 35.00 
“Beams; Stress & Deflection’”......... 145.00 
“Tank Thickness” 

For Filament Winding............... 85.00 

All 6 for only $495.00 

And many others coming soon — including 


Report Gen. for Commodore — Ask for Catalog 
#80-C2. 


COMPUTER HOUSE DIV. 
1407 Clinton Road 
Jackson, Michigan 49202 
Phone: (517) 782-2132 
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Twice the capacity of anything available. 


NEW! 2 MEGABYTE DISK DRIVE 
FOR COMMODORE CBM/PET. 


Now you can quickly, easily andeconomically Immediate Delivery, 


expand the capacity, capability and versa- 
tility of your Commodore CBM/Pet computer. Order Today! 


Just with the addition of our all new, 
exceptionally fast (5,000 bytes per second — 
including verify) dual head, quad density 
disk drive. 


Its 2 megabyte unformatted capacity is over 
twice the size of any Commodore compatible 
drive from any manufacturer. 

This on-line drive includes DOS operating 
system plus 17 additional BASIC commands 
and random or indexed sequential access. 
It's completely plug compatible with the 
dynamic RAM Pet. Backed by comprehensive 
90 day factory warranty. 500k and 1.0 


965 W. Maude, Sunnyvale, CA 94086. (408) 245-4033 
Please send me the fo 


Drive: 0 2.0 Mb @ $24! 0 10Mb @ $1695 0 S00k @ $1295 
cE 'S-80 500! rive @ $1295 
O Name of nearest Computhink dealer 


Total enclosed: $ = 


Check or Money Order only. Calif. Res. add 6% tax 
Freight pre-paid in continental U.S. 


Dealer Inquiries Invited. 


Name—___ ———————— 
megabyte on-line drives are also available. | Address. 7 i 
Make your Pet twice as good. Return the ' City Zip. 


orderblanktoday! Btn en nnn SAE IT ER AERA SUE | 
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Teaching Basic Academic Skills 
Can Micros Make A Difference? 


Tory Esbensen, Coordinator of Elementary Curriculum and Instruction 
Doug Hed, Supervisor of Media Services, Edina Public Schools, Edina, Mn.55435 


As microcomputers become more visible in school set- 
tings, they may be increasingly asked to present 

their teaching credentials. This report is a preliminary 
attempt to respond to that likely development. 

In the fall of 1979, the Iowa Tests of Basic 
Skills were given to all of the 3rd and 5th graders in 
the Edina Public Schools. Students who scored poorly 
on these tests in capitalization, punctuation, and 
usage, were singled out to take advantage of micro- 
computer programs written for the PET in these 
academic areas by MICRO-ED, INC. (Box 24156, 
Minneapolis, Minnesota, 55424). 

Although every elementary school in the Edina 
system uses microcomputers, and although micro- 
computer programs are readily available to any class- 
room teacher wishing to employ them, for the purpose 
of this project special instructional arrangements were 
made with student support centers that had been 
established in four of our elementary schools. Briefly, 
in those schools where support centers existed, 3rd and 
5th grade students who scored in the bottom quartile 
of the Iowa Tests in capitalization, punctuation, and 
usage, were targeted to receive additional instruction 
from microcomputers. This selection procedure was 
based on local norms which are higher than national 
norms. 

It is important to emphasize that no attempt was 
made to handle this as a pure research project. 

No students were used as a control group. In the 
four schools in which the project was formally 

carried out, we tried to provide microcomputer 
instruction to every student who seemed to need 

it. In those schools which had no support centers 
microcomputers were also used by individual teachers 
to provide additional instruction to students. No 
attempt was made to restrict this in any way. 

Above all, great care was taken to avoid giving 
any impression that microcomputers are somehow 
preferable to other modes of instruction. In our 
opinion, it is important to have micros viewed as 
the instructional allies of teachers, not as competitors. 

Therefore, what this report will provide is infor- 
mation concerning what happened to a group of 
students when microcomputers were used to play a 
major role in furnishing certain kinds of remedial 
instruction. No comparison with other instructional 


practices or results is intended or implied. 

We shall begin by considering a group of 59 
fifth grade students who scored the lowest in the 
Iowa Tests in the area of English usage. In the fall 
of 1979, based on national norms, the median score 


for this group placed it at the 37th percentile for a 
grade equivalent score of 4.4. 

When this group was re-tested in the spring of 
1980, its median score for English usage placed it 
at the 58th percentile for a grade equivalent score 
of 6.4. Academically, this group of students gained a 
total of 20 months over a period of 7 months. 

Next we shall look at a group of 67 fifth grade 
students who scored the lowest in the Iowa Tests 
in the area of punctuation. In the fall of 1979, based 
on national norms, the median score for this group 
placed it at the 36th percentile for a grade equivalent 
score of 4.5. 

When this group was re-tested in the spring of 
1980, its median score for punctuation placed it at the 
62nd percentile for a grade equivalent score of 6.5. 
Academically, this group of students also gained a 
total of 20 months over a period of 7 months. 

Then we shall consider a group of 73 fifth 
grade students who scored the lowest in the Iowa 
Tests in the area of capitalization. In the fall of 1979, 
based on national norms, the median score for this 
group placed it at the 35th percentile for a grade 
equivalent score of 4.5. 

When this group was re-tested in the spring of 
1980, its median score for capitalization placed it at the 
70th percentile for a grade equivalent score of 7.0. 
Academically, this group of students gained a total 
of 25 months over a period of 7 months. 

Now we shall consider a group of 45 third grade 
students who scored the lowest in the Iowa Tests 
in the area of capitalization. In the fall of 1979, 
based on national norms, the median score for this 
group placed it at the 25th percentile for a grade 
equivalent score of 2.4. 

When this group was re-tested in the spring of 
1980, its median score for capitalization placed it at 
the 59th percentile for a grade equivalent score of 4.2. 
Academically, this group of students gained a total 
of 18 months over a period of 7 months. 

Next we shall look at a group of 35 third 

grade students who scored the lowest in the Iowa Test 
in the area of English usage. In the fall of 1979, 
based on national norms, the median score for this 
group placed it at the 33rd percentile for a grade 
equivalent score of 2.4. 

When this group was re-tested in the spring of 
1980, its median score for English usage placed it 
at the 72nd percentile for a grade equivalent score of 
5.1, Academically, this group of students gained a total 
of 27 months over a period of 7 months. 
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Skyles Electric Works 


Your students are gathering around the several PET computers in your 
@ Classroom. And they all are hungry for hands-on turns at the keyboards. 
Some students are just beginning to understand computers; others are 
so advanced they can help you clean up the programs at the end of the period. 
How do you set up a job queue, how do you keep the beginners from crashing a 
program, how do you let the advanced students have full access? And how do you 
preserve your sanity while all this is going on? 


A. With the Regent. 
Q. What is the Regent? 


A The ultimate in classroom multiple PET systems. A 

° surprisingly inexpensive, simple, effective way to have 
students at all levels of computer capability work and learn 
on a system with up to 15 PETs while the instructor has 
complete contro! and receives individual progress reports. 


Up to 15 PETs, one dual disk drive and as many as five 


printers can interface with the Regent, and do all those good things we promised. It’s designed to operate with 
8K, 16K, 32K PET/CBM models and with the Commodore disk drives and new DOS. 


Five levels of user privilege. from the Systems Level, 
through Levels One and Two, Student; Levels One and 
Two, Operator. From only the use of system commands 
to complete control for the exclusive use of the 
instructor. 


There's complete system protection against the novice 
user crashing the program: the instructor has total 
control over, and receives reports concerning, usage of 
all PETs. 


A complete set of explanations for all user commands 
is stored on the disk for instant access by all users. 
And a printout of the record of all usage of Regent is 
available at the instructor's command. 


The Regent includes a systems disk with 100,000-plus 
bytes for program storage. a ROM program module, 
together with a Proctor and a SUB-it . . . and complete 
instructor and student user manuals. 


Q. SUB-it? Proctor? What are they? 


A The SUB-it is a single ROM chip (on an interface 

° board in the case of the original 2001-8 models) 
that allows up to 15 PETs to be connected to a 
common disk via the standard PET-IEEE cables. The 
Commodore 2040, 2050 or 8050 dual disks and a 
printer may be used. 


(The SUB-it has no system software or hardware to 

supervise access to the IEEE bus. The system is thus 
unprotected from user-created problems. Any user — 
even a rank novice — has full access to all commands 


and to the disk and bus. This situation can, of course 
be corrected partially by the Proctor, completely by the 
Regent.) 


The SUB-it prevents inadvertant disruption when one 
unit in a system is loading and another is being used. 


The Proctor takes charge of the bus and resolves 
multiple user conflicts. Each student can load down 
from the same disk but cannot inadvertently load to or 
wipe out the disk. Good for computer aided instruction 
and for library applications, offering hundreds of 
programs to beginning computer users. 


A combination of hardware and software protects the 
disk from unexpected erasures and settles IEEE bus 
usage conflicts. Only the instructor or a delegate can 
send programs to the disk. Yet all the PETs in the 
system have access to all disk programs. Available for 
all PET/CBM models. SUB-it and PET intercontrol 
module and DLW (down-loading software) are included. 


Q. How expensive are these classroom 
miracles? 


A We think the word is inexpensive. The Regent 

* system is $250 for the first PET; $150 for each 
additional PET in the system. The SUB-it is $40. (Add 
an interface board at $22.50 if the PET is an original 
2001-8.) And the Proctor is $95. 


There are cables available, too: 1 meter at $40 each; 
2 meter, $60 each: 4 meter, $90 each. 


Phone or write for information. We'll be delighted to answer any questions 
and to send you the complete information package. 


Skyles Electric Works 


231 E South Whisman Road 


Mountain View, CA 94041 
(415) 965-1735 
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Finally, we shall report on a group of 39 third 
grade students who scored the lowest in the Iowa 
Tests in the area of punctuation. In the fall of 
1979, based on national norms, the median score 
for this group placed it at the 20th percentile for 
a grade equivalent score of 2.2. 

When this group was re-tested in the spring 
of 1980, its median score for punctuation placed 
it at the 80th percentile for a grade equivalent 
score of 5.3. Academically, this group of students 
gained a total of 31 months over a period of 7 
months. 

Inasmuch as our elementary student support 
centers played such a central role in the shaping 
of this microcomputer instructional project, it would 
seem appropriate to explain something about the 
operation of these centers. 

During the 1979-80 school year, our Concord, 
Cornelia, Creek Valley, and Wooddale elementary 
schools housed student support centers. By the fall 
of 1980, all of our elementary schools will have 
them. Here is how these centers function: 

Each one is supervised by a paraprofessional, and 
instruction there is not necessarily remedial in 
nature. Students are scheduled into the center accord- 
ing to specific instructional needs as determined by 
their classroom teachers. A student may begin work 
in the center at any time during the year, and con- 
tinue until a designated sequence of lessons has been 
completed. 

Different kinds of instructional materials and 
equipment (kits, tape recorders, etc.) are available 
in the center. Nevertheless, the microcomputer has 
been the major engine of instruction. It is not hard 
to understand why. 

Unlike many other machines, the microcomputer 
is not a special function device. The typical piece 
of hardware is dedicated to perform a specific 
function. Thus, a motion picture projector shows films, 
a record player plays records, and so on. Not so 
with the computer. Sometimes called a ‘‘smart’’ 
machine, this sophisticated device needs only to be 
told what to do in order to carry out a broad range 
of tasks. It can help manage a business enterprise, 
assist doctors in diagnosing illnesses, and play a 
strong game of chess. As our present study shows, 
it can help students learn effectively. 

What sets the microcomputer apart from its more 
ponderous ancestors? The expression computer-on-a- 
chip tells the story. The ability of modern technology 
to miniaturize its creations means that something small 
can nevertheless be incredibly powerful. A microcom- 
puter such as the PET weighs only about forty pounds, 
uses no more energy than a 150-watt light bulb, 
and can be plugged into an ordinary electrical 
outlet as you would a radio or phonograph. Although 
it costs no more than a good television set, its ver- 
satility, for all practical purposes, is limited only 
by the skill and imagination of those who know how to 


use it. Within the field of education, its capabilities 
are only just beginning to be explored. 

What do students think of the microcomputer? 
Our student support center personnel are unanimous 
in their verdict: The students love it! Indeed, 
never was remedial instruction sought with such 
eagerness as when it was offered by way of the 
microcomputer. 

Teachers, too, for the most part, have been 
supportive of this mode of instruction - increasingly 
so as time has gone on. Several have commented 
favorably on the tangible benefits they have observed 
as a result of their students having worked with micros. 

Although parents have not been queried formally 
as to their views on the matter, a number of them 
have voluntarily expressed their enthusiasm for the 
use of microcomputers as an additional aid to learning. 

So where do we go from here? Let us tentatively 
offer these concluding thoughts: 

The education establishment (of which we are 
bona fide members) will take most kindly to micro- 
computers when these wonderful instruments are 
seen as supplemental to other forms of instruction, 
not as replacements for them. This means that 
manufacturers and publishers alike would be well 
advised to promote micros as being particularly 
useful to teachers in the areas of remediation, 
enrichment, special education, and homebound 
instruction. Implication: Any comprehensive and 
relatively expensive arrangement requiring full- 
scale classroom participation may be a difficult 
package to sell to educators. 

Mastery learning, including competency-based 
teaching and testing, may very well be an idea 
whose time is rapidly coming if, indeed, it is not 
already here. Implication: It is possible that as 
school people generally begin to grasp some of the 
implications of microcomputers for education, it 
will be seen tht micros may be fundamental to the 
successful application of mastery learning on a broad 
vale. 

No one, of cours 


, can clearly foresee what is 
going to happen. But all of us who are impressed 
by the mighty potential of the microcomputer would 
do well not to repeat the mindless optimism of the 
1960’s when (do you remember?) teaching machines 
first blossomed. In those halcyon days, equipment 
vendors rushed to market with hardware that needed 
only programs in order to teach anything. Teachers, 
it was cheerfully assumed, would quickly fill this 
need by creating instructional hearts for tin woodsmen. 
Alas, this did not happen. Implication: We should 
carefully avoid making this mistake again. 
Finally, this observation: 

A famous educator once said, ‘‘Madam, we 
guarantee results - or we return the boy!” 

In our dawning new age of customer-oriented 
education, what is more likely to be returned now 
is the machine. 
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MICROPHYS PROGRAMS 


2048 FORD STREET 
BROOKLYN, NEW YORK 11229 
(212) 646-0140 


SCIENCE AND EDUCATION 
Mp 


ATTENTION: School Administrators, Attendance and Records Personnel 


Microphys, a leader in educational software design, is pleased to announce the development of an administrative software package that will provide, in a highly 
cost-effective and efficient fashion: 


1. 


Daily and cumulative student attendance reporting. The attendance bulletin can be informatively annotated prior to its completion. Student records can 
be readily searched to reveal absences on a particular day or within a given time period. 


$2500 * 
Scheduling updates including the generation of new class lists, student schedules and add-drop forms. All section changes are recorded and true class counts 
and an up-to-date school course directory may be generated at any time. $1500 * 


Complete exam scoring and detailed item analysis of all standardized objective tests. The same data base associated with the attendance and scheduling 


features is accessed by this system. A relatively inexpensive, though extremely reliable, electronic mark-sense card reader is a required component of the 
hardware package. 


$250* 
End of marking period report cards and cumulative school record production for each student. The generation of class rankings and honor roll search 
capability also exist. $2500 * 
Production of mailing labels addressed to the parents/guardians of general or selected groups of students. Word-processing software, not produced by 
Microphys, is a recommended complement to the above administrative system. $250 * 


* Note: The prices represent a one-time licensing fee. Special discounts are accorded multi-school districts. 


The software is of modular design so that it is possible to contract for the attendance and scheduling-update features immediately, and then, at a later date, acquire 
the report card, mailing list, and exam analysis features. 


The system is intended for use within a microcomputer environment consisting of a 32K Commodore CBM computer; a 340K dual floppy disk drive; and a com- 


patible printer. 


This hardware configuration represents an investment of $3500. Note: Hardware should be obtained from and serviced by local Commodore 


dealers. Presently schools with approximately 1500 students may readily manage the administrative functions listed above. With the rather imminent introduction 
of the one megabyte disk drive, the maximum school population will increase to 3000 students 


Administrators and concerned school personnel are urged to write for additional details, sample printouts, and a complete demonstration of the entire system. 
The financial savings and educational benefits to be accrued by the adoption of this system are tremendous and should be explored by virtually every school. 


Sales representatives and dealers are invited to inquire about terms 


Commodore Hardware 


Sawyer Software now has available the complete 
line of Commodore micro-computers, disk drives 
and printers. With the purchase of a complete CBM 
system or any piece of Commodore hardware, you 
can receive up to $390.00 worth of free software 
We also have memory kits to expand your 8K PET 
to a 24K or 32K machine. 


GENERAL LEDGER — Maintains complete 
financial information on diskette. Generates hard 
copy of Trail Balance, Income Statement (with 
percentages), Balance Sheet and Check Journal. 
Includes commands to edit data, close out year end 
accounts and debit-credit verification. 
. TRS-80 $125.00 

CBM $195.00 


AP1 is a general ledger package with check journal, 
income statement, balance sheet and checkbook 
reconciliation routine. Designed for the small 
business or homeowner. Up to 50 entries and 40 
accounts per period. 


Telephone Orders Welcome 


Gl! Y Et: 


Cre rid! iil: 


Payroll computes tax information and updates 
totals for quarterly and yearly reports. Employees 
can be salaried or hourly and pay periods can be 
either weekly, bi-weekly, semi-monthly or monthly. 
Any number of employees (8 per cassette for PET, 
25 employees per cassette for TRS-80). 


Payroll-16K for PET. Same as above plus ability to 
get hard copy of individual employee records and 
stores 25 employees per cassette saios 


Printer Payroll (TRS-80) — Includes same features 
- PAYROLL, plus utilizes a printer for hard copies 
of employees records and stores 25 employees per 


cassette. 
‘$45.00 


SAWYER SOFTWARE OFFERS a complete line of 
cassette and disk based business software for your 
PET or TRS-80 computers. Each program has been 
specifically designed for ease of use and come with 
instruction manuals. SAWYER SOFTWARE'S disk 
packages run on Commodore, Compu-Think or 
TRS-80 disk systems with 32K and at least one disk 
drive. Call or write for free brochure. 


SAWYER SOFTWARE 


201 Worley Rd. 
Dexter, Mo. 63841 
(314) 624-7611 


Atari Hardware 


SAWYER SOFTWARE carries the complete line of 
Atari's micro-computers and peripherals for your 
business, educational and entertainment needs. 
Call us for more details on our low prices for Atari's 
fully programable, color graphic personal 
computer 


PAYROLL — Computes FICA, Federal and State 
taxes. State is calculated on percentage of gross 
Pay and can be customized for your particular state. 
‘Will allow use of City tax and/or other deductions. 
Utilizes printer for hard copy of Payroll Register, 
tnetuding current, quarterly and yet oes totals. 


entries per period, Men 

more. Requires at least 16K in PET or TRS-80. 

AP2 also utilizes a printer for the reports. Send 
device number of caholect with order for PET. 


AP2 has all the features of AP1, Lag up to 250 
formatter for reports and 


Dealer Inquires Invited 
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Basically 
Useful BASIC 


Robert Lock 

Programs furnished by 

Marvin L. DeJong, 

School of the Ozarks 

To our continuing series of useful financial programs 
we’ve added a new dimension. Program VII allows 
you to take a look at what inflation’s doing to the 
price of whatever. The results are pretty interesting, 
and a bit scary. Certainly brings home the message 
of inflation. I used the price of a subscription to 
COMPUTE! in checking out the program. Wow! 
Given our new 12 issue price of $16.00, I arbitrarily 
projected a 10% annual inflation rate for 1990 and 
the year 2000. On that basis, the cost of a one year 
subscription will have risen to $41.00 by 1990 and a 
whopping $108.00 by the year 2000. 

Before you get worried about not being able to 
afford us by the year 2000, consider what your salary 
will be if it inflates at the same rate. And besides, I 
expect that long before the year 2000, COMPUTE! 
will be showing up in some form other than its pre- 
sent one. On a diskette perhaps, or via satellite into 
your 100 million character home library bubble 
memory bank. Or some such thing. 

Note: I'm still looking for more input for Basically Useful BASIC. When 


you develop short, useful programs that aren't machine dependent, send them 
along 


19 REM PROGRAM VI-CALCULATES THE AMOUNT = 
aIN A SAVINGS ACCOUNT AFTER N 3 
aYEARS, 

REM IF INTEREST IS COMPOUNDED M = 
“TIMES PER YEAR AND THE INTEREST - 
ARATE 

REM IS R% PER YEAR. 

PRINT "HOW MUCH MONEY DO YOU INTEND - 
aTO DEPOSIT?" 

INPUT BAL 

PRINT "WHAT IS THE ANNUAL INTEREST = 
“RATE IN PERCENT?" 

INPUT R 

R=R/100 

PRINT "HOW MANY COMPOUNDING PERIODS 7 
7EACH YEAR?" 

INPUT M 

PRINT "HOW MANY YEARS DO YOU INTEND 7 
aTO INVEST THIS MONEY?" 

100 INPUT N 
110 AMT = BAL*(1+R/M) * (N*M) 
12@ PRINT "AT THE END OF",N,"YEARS YOU - 
aWILL HAVE",AMT,"DOLLARS SAVED." 
130 END 
READY. 


15 


19 REM PROGRAM VII-CALCULATES THE PRICE - 
3OF "ANYTHING" X YEARS FROM NOW, 


14 REM GIVEN THE CURRENT PRICE OF 3 
a"ANYTHING" AND THE RATE OF 5 
aINFLATION 

18 REM IN PERCENT. 

20 PRINT "WHAT IS THE CURRENT PRICE OF + 
aCOMPUTE!?" 

38 INPUT PR 

49 PRINT "WHAT YEAR IS IT NOW?" 

50 INPUT YEAR 

60 PRINT "FOR WHAT YEAR DO YOU WISH TO + 
KNOW THE PRICE OF COMPUTE! ?" 

70 INPUT RAEY 

80 N = RAEY - YEAR 

98 PRINT "WHAT IS THE PROJECTED - 
INFLATION RATE IN PERCENT?" 

108 INPUT R 

110 R = R/100 

130 P = PR*(1+R)“N 

149 PRINT "THE PRICE OF COMPUTE! IN 7 
3";RAEY;" WILL BE "; 

145 PRINT INT(P+.5);"!" 

150 END 

READY. 
19 REM PROGRAM VIII - CALCULATES THE 5 


7AMOUNT IN A PERIODIC SAVINGS PLAN 


12 REM (ANNUITY) AT THE END OF N PAY 7 
aPERIODS. 
15 REM THE INTEREST RATE IS FOR THE 7 


PERIOD; FOR EXAMPLE % PER MONTH. 
PRINT"HOW MUCH MONEY DO YOU INTEND - 
3TO DEPOSIT EACH PAY PERIOD?" 
INPUT P 
PRINT "HOW MUCH IS THE INTEREST RATE 7 
FOR EACH PAY PERIOD, (PERCENT) ?" 
INPUT RATE 
PRINT "HOW MANY PAYMENT PERIODS DO - 
YOU INTEND TO SAVE?" 
INPUT N 
RATE = RATE/100 
PN= P*((1+RATE) *(N+1)-(1+RATE) ) /RATE 
100 PRINT "AT THE END OF ")N;" PAY 7 
PERIODS YOU WILL HAVE ";PN; 
110 PRINT "IN YOUR ANNUITY." 
120 END 
READY. 
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30 
40 


Family Oriented Computer Games 
Available for use with the PET 
BINGO, DRAW POKER, 
CRYPTOGRAMS, WHEEL OF FORTUNE 
WORD GAMES 


Educational Software 


Free educational catalog listing over 140 


pidgiams in math, physics; 
vocabulary, spelling. Write to: 
Microphys 

2048 Ford Street 

Brooklyn, N.Y. 11229 


chemistry, 
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Name: Step-By-Step 

Vendor: Program Design, Inc., 11 
Idar Court, Greenwich CT 06830 
Price: $49,95 

Purpose: Teaches how to program 
a TRS-80 using BASIC 
Documentation: Outstanding 
Loading: OK—Level 6, not critical 
Implementation: This is a case of 
a BASIC program that teaches BA- 
SIC programming, It starts out with 
the assumption that the student 
only knows how to turn the TRS-80 
on. Three cassette tapes are 
mounted in the cover of a loose- 
leaf notebook that also contains 
supplementary information frames. 
The course is divided into ten two- 
part lessons, From a simple PRINT 
“HI through arrays and graphics to 
complex programs, all of the Level 
ll commands and statements are 
exercised. 

The instruction method consists of 
explanation, example, trial and 
testing. Commands and state- 
ments are presented and ex- 
plained, examples are shown both 
on the screen and in the notebook, 
and then the student is presented 
with some problems to solve using 
the BASIC elements under discus- 
sion. If an incorrect answer is given, 


Step by Step also available for Apple || and Pet 
Available at Computerland and other fine computer dealers. Or, use the coupon below. 


Pad 


Program Design, Inc. 11 Idar Court Greenwich, Conn. 06830 203-661-8799 


two more tries are allowed, and 
then the correct answer is dis- 
played. Each lesson ends with a 
test that is administered and 
scored by the computer. The results 
are then entered into the student's 
progress chart. More comprehen- 
sive examinations are given at the 
end of Lesson 5 and at the end of 
the course. 

Suitability: This is the kind of edu- 
cational programming that per- 
sonal computing needs more of. 
The student (my teenage son) 
learned much more quickly than | 
could have taught him, and at his 
Own pace. However, this course 
isn't just for youngsters but for any- 
one who wants to be able to pro- 
gram effectively using the BASIC 
language. In a household where 
there isn't anyone to do the teach- 
ing, this course would be espe- 
cially useful. I'd like to see a similar 
course for assembly-language 
programming. 

Other software available from 
the same vendor: IQ Builders (four 
different kinds), Memory Builder 
and Story Builder. 


Reprinted with permission: 
80 Microcomputing, February 1980 


Apple Il version also available on disks for $59.95. 


FORM 


Basicin A Nutshell 


ORDER 
Quantity Title Computer Price 
STEP BY STEP 
Please send me a list of dealers in my area 0 Shipping 5% 


Check or m.o. enclosed 0 


Mastercharge # 


CT resident add 7% 


BankAmericard/ VISA # Name: 
Address: 
MC 4 digits over name City: 
Phone State & Zip 


EX date 


TOTAL 


*Foreign orders: U.S. funds 
Add $10. 
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THE ELECTRONIC COLUMNAR PAD 


A Problem Solving Computer Software Program 


Colupad™ is a unique computer tool which allows you to create, 
store, selectively retrieve and perform math operations upon data 
and then generate reports using that data. Colupad™ can best be 
visualized as the typical columnar accounting pad found in most 
offices. Powerful, but simple to use, Colupad™ has such features as: 


e 24 columns and 40 rows for data manipulation 

eSpace for row and column descriptions 

@ Ability to store 24 constants per page 

@ Ability to reference decimal places for each 
column 

@ Ability to perform math functions on one 
column and store in another 

@ Ability to add, subtract, multiply, etc., one 
column to another and then place resulting 
data in a different column 

@ Print a whole page, selective columns or rows 

@ Save whole pages to disk 
Retrieve whole pages, selective rows, or 
columns from disk 

e Plus much, much, more 


One page of the pad, the worksheet, is in computer memory. The pad consists of 
worksheets stored on disk and linked by name. Pad size is only limited to diskette 
capacity. 

If you find yourself spending hours (or days) copying, adding, subtracting, or 
whatever one column by another or just compiling data on a columnar pad then 
Colupad™ can save you time, and in your business time is money. 

Colupad™ requires a 32K PET, Disk, and printer. - $150.00. 


TO PLACE YOUR ORDER CALL (919) 362-4200 or (919) 362-5671 
LOOK FOR MORE PROBLEM-SOLVING SOFTWARE FROM 


Etcetera International 


Software Marketing NLLLITLUIII ULTIUIUI ELECTRONIC TECHNOLOGY CORPORATION 
Division of P.O. Box G-OId NC 42 
i IIII|| Apex, North Carolina 27502 
919-362-4200 
il 


mn 


DEALER INQUIRIES INVITED 


ATTENTION PROGRAMMERS AND INVENTORS 


WE ARE INTERESTED IN SOFTWARE AND HARDWARE APPLICATIONS TO MANUFACTURE, 
AND MARKET — IF YOU HAVE SUCH APPLICATION GIVE US A CALL. 


_Finally...Serious Expansion 
Ls for the AIM-65 


Introducing Memory-Mate*, the AIM-65 expansion 
board that lets you spend your time on application 
solutions, not hardware hassles. Add Memory-Mate 
to your AIM-65 and make quick work of development 
and process control projects. 


In its primary function, the Memory-Mate board pro- 
vides 16-48K of RAM expansion assignable in 4K 
blocks anywhere in the system. Memory-Mate’s pari- 
ty check circuitry insures system RAM integrity (in- 
cluding AIM’s 4K on-board RAM) for high reliability 
applications. The programmable write protect feature 
eases software development chores. This compact 
board, which fits directly beneath the AIM, also in- 
cludes four programmable 1/0 ports, a tone 
generator for audible warnings, and sockets for 4K of 
PROM. 


1/0 intensive applications are accommodated with 
Memory-Mate’s STD BUS interface option. Use off- 
the-shelf STD BUS cards to solve your biggest 1/0 
problems. 


The Memory-Mate with 16K RAM is priced at $475, 
with 16K expansion chip sets (including parity chip) 
costing $100 each. With 48-hour active burn-in and 
warranty for a full year, you won't have to worry 
about reliability either. 


First of the complete AIM-Mate* series, Memory- 
Mate will be joined shortly by the Video-Mate*, 
Floppy-Mate* and the AIM-Mate case. For further in- 
formation on the entire AlM-Mate series, write 
‘Attn: AIM-Mate Series’ at the address below. 

*TM Forethought Products 


Forethought Products 


87070 Dukhobar Rd., Eugene, OR 97402 
(503) 485-8575 


"slapeay ajndwog 104 je1I9adg A1o}Onpod}u| 


*SITE}OQ 410} [12D {SL “YO NY? GEES 10) pseog a}eW-AJowWsW yO} 
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RS232 COMMUNICATIONS 


Michael E. Day 
2590 DeBok Road 
West Linn, OR 97068 


As more computer equipment is purchased by the 
small systems user, connecting this equipment together 
becomes a bigger problem, particularly when the 
equipment is made by different manufacturers. 

One of the more common methods of connecting 
data communications equipment together is by way of 
the RS232 standard. However, even this has been 
cause for confusion, as there are various levels of 
implementation within the standard. 

The purpose of this article is to provide sufficient 
information concerning the RS232 standard to allow 
proper implementation at the desired level. 

The minimum level of RS232 consists of: 

Pin 2 TXD (Transmitted Data -OUT-) 
Pin 3 RSD (Received Data -IN-) 
Pin 7 Logic Grnd 
The 2nd level consists of the minimum level plus: 
Pin 6 DSR (Data Set Ready) 
Pin 8 DCD (Data Carrier Detect) 
Pin 20 DTR (Data Terminal Ready) 
The 3rd level consists of the other two levels plus: 
Pin 4 RTS (Request to Send) 
Pin 5 CTS (Clear to Send) 
Pin 22 RI (Ring Indicator) 
Pin 1 Protective Ground should be used at all levels; 
however, it is not required for proper operation. 

Level 1 is normally used with equipment tied 
directly to each other, such as a terminal tied directly 
to a computer. Level 2 is normally used where some 
degree of handshaking is required, and is often found 
on accoustic couplers. The third level is used where 
a more detailed control of the information flow is 
required. This level will usually be found with auto 
answer modems. 

This is a generalization of what will be en- 
countered by the small systems user, and in no way 
implies that all equipment will follow these rules. 
Some equipment will need other special signals, or 
not use all of the signals within a specific level. 
Synchronous transmission will normally require addi- 
tional special lines and will be described in detail 
later. 

There have been three standards of RS232 
produced--A, B, & C. RS232A is obsolete, and equip- 
ment using this standard is almost non-existent. 
RS232B is also obsolete; however, there is still some 
old equipment around that uses this standard. 
RS232B is basically the same as RS232C except that 
the Transmit Data and Receive Data signal levels 


are inverted; that is, a marking condition is a positive 
level rather than a negative level. 

The following is a description of the full RS232C 
standard. It is not required that all signals be pro- 
vided, and it may be implemented in part or in full. 

Each data set has a standard 25-pin connector 
(Cinch or Cannon chassis-mount, female type 
DB-25S). The table below has the pin number, the 
circuit mnemonic, and description for each signal 
in the RS232-C interface. Unassigned pin may have a 
different function in each type of data set, so check 
the technical manual for pin assignments for each 
data set. 


Pin Number Mnemonic Description 


1 AA Protective Ground 
2 BA Transmitted Data 
3 BB Received Data 
4 CA Request to Send 
5 CB Clear to Send 
6 cc Data Set Ready 
7 AB Signal Ground (Common Return) 
8 CF Received Line Signal Detector 
9 _ (Reserved for Data Set T 
10 -- (Reserved for Data Set Tes 
11 Unassigned 
12 SCF See. Ree'd. Line Sig. Detector 
13 SCB Sec. Clear to Send 
14 SBA Transmitted Data 
15 DB smission Signal Element 
Timing (DCE Source) 
16 SBB Secondary Received Data 
17 DD ment Timing 
ce) 
18 Unassigned 
19 SCA Secondary Request to Send 
20 cD Data Terminal Ready 
21 CG Signal Quality Detector 
22 CE Ring Indicator 
23 CH/CI Data Signal Rate Selector 
(DTE/DGE Source) 
24 DA Transmit Signal Element Timing 
(DTE Source) 
25 Unassigned 


For timing and control interchange signals, the func- 
tion will be ON when the voltage is more positive 
than plus three volts and OFF when the voltage is 
more negative than minus three volts. The table 
below illustrates the signal function voltage relation- 


ships. 
INTERCHANGE VOLTAGE 
NEGATIVE POSITIVE 
-3 to -25 +3to +25 
Binary State 1 0 
Signal Condition Marking Spacing 
Function OFF ON 
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HAYDEN SOFTWARE... 


New! 

DATA MANAGER: A Data Base 
Management System and Mailing List 
(Lutus) Do what the big machines do with your 
Apple II! This all-machine language program 
stores up to 96,000 alphanumeric characters 
on just one floppy disk. Powerful cursor-based 
editor facilitates easy information alteration in 
the data base. Program permits the user to sort 
on any key and subfiles on any search. Retrieve 
data in any combination of categories from up 
to 32,000 characters within one-half second. 
Choose between screen display or serial print- 
out (via the game paddle connector). Ideal for 
mailing lists, data banks, index files, or any 
other facts, files, or statistics that are begging 


to be organized. #04909, Apple II Disk Version, 


$49.95. 


New! 

APPLE ™ ASSEMBLY 
LANGUAGE DEVELOPMENT SYSTEM 
(Lutus) Enter the world of machine language 
programming with this brand new, winning, 
utility program. This very capable Assembler/ 
Editor/Formatter allows you to write and 
modify your language programs quickly and 
easily. Features a cursor-based editor, local and 
global labels, and disk-based macros which per- 
mit you to incorporate frequently used sub- 
routines into any program. Formprint program 
lets you print a formatted listing of source and 
object files. #04609, Apple II Disk Version, 
$39.95, 


Available at your local computer store! 


Hayden Book 
Company, Inc. 


50 Essex Street, Rochelle Park, NJ 07662 


or Call Toll Free, 24 hours a day, 
(1-800-827-3777, ext. 302)* 

TO CHARGE YOUR ORDER TO 
Master Charge or Visa! 

Minimum order is $ 10.00; 

Customer pays postage and handling. 
From Missouri, call 

1-800-892-7655, ext. 302 


New! 
MICROCOMPUTER CIRCUIT 
ANALYSIS PROGRAM 

(Savon) Minimize your time calculating the 
frequency response of a circuit with this new 
program. MCAP performs a linear voltage, 
impedence, or transfer impedence analysis of 
an electronic circuit. Enter the circuit des- 
cription in a systematic nodal notation and the 
program then calculates, lists and plots the 
circuit’s frequency response. MCAP readily 
analyzes circuits with up to 15 nodes — larger 
circuits can be divided into subsections for 
individual analysis. And, the circuits analyzed 
can contain any or all of the six types of com- 
ponents: resistors, capacitors, inductors, bi- 
polar transistors, FETs, and Op-Amps. Educa- 
tors in particular will find this a strong 
applications program for circuit analysis. 
#04504, Apple I; #04501, PET; each Cassette 
$24.95, 


Z 


For those who prefer their 
ready-to-run programs 


WELL DONE! 
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The figure below illustrates a 2-wire, point-to-point, 
half duplex, and a telephone leased line which is 
always available to the customer. 


Computer |—s} Data Set Data Set Terminal 


Assume that the computer needs to transmit a message 
to the terminal. The computer’s software brings up 
the ‘‘data terminal ready line’’ to its data set. 

If the data set is ‘*ON”? it will return ‘*Data 

Set Ready’’ (interlock it) to the computer. When the 
computer wants to transmit, it raises the ‘‘request 

to send”’ level which tells the data set to turn on the 
carrier wave. The carrier wave is sent from the 
computer’s data set over the telephone circuit to the 
terminal's data set. The terminal's data set, upon 
detecting the carrier, will raise the “‘Received Line 
Signal Detector’ level to inform the terminal, in 
effect, that a message is about to be received. After 
a fixed delay time (strappable in some data sets) 

and after raising ‘‘Request ToSend,’’ the computer’s 
data set will return, ‘‘Clear To Send.’’ The computer 
upon receiving the ‘‘Clear To Send”’ signal, can 
now start transmitting the message, as marks and 
spaces, on the ‘‘Transmitted Data’’ line to its data 
set. The data set converts the digital signals into 
frequency or phase-- shifted signals for transmission 
over the leased line to the terminal’s data set. 

Most data sets contain a clamp circuit which 
clamps the ‘‘Received Data’’ line. ‘‘Received Line 
Signal Detector’ level is not generated until after 
the carrier is detected. The clamp delay masks out 
all the possible noise on the line which occurs during 
the switching from either transmit to receive or 
receive to transmit. 

If this was a synchronous operation, the clocking or 
synchronization of each bit would be done by the 
computer’s data set. So that the computer knows 
when each bit must be placed on the ‘*Trans- 
mitted Data”’ line, the data set sends clock to the 
computer on the ‘‘Transmission Signal Element 
Timing” line. This clock will be coincident with 
““Trans- 


the leading adge of each data bit on the 
mitted Data”’ line. 

At the terminal end of the system, the computer’s 
data set turns on its carrier; the terminal’s data 
set detects it and sends ‘‘Carrier Detected” level 
to the terminals. Several milliseconds later (length 
determined by the ‘Clear To Send’’ delay in the 
transmitting data set), the first message bits arrive 
and are converted to a digital signal, which is 
passed from the data set to the terminal on the 
“Received Data”’ line. In synchronous operation, 
clocking for the data is generated by the receiving 
data set and is passed to the terminal on the 
“Receiver Signal Element Timing: line in order that 
the terminal can correctly clock the bits into its 


buffer or memory as they arrive. The clock pulse is 
timed to occur at the center of the data bit on the 
“Received Data’’ line. 

The following is a list of the definitions of the RS232-C 
signals which are listed in order of pin number. To 
simplify the definitions, the transmitter of the m 
will be identified as the ‘‘transmitting terminal”’ 

and the receiver as the ‘‘receiving terminal.”’ 
PROTECTIVE GROUND PIN 1: This ground is 
electrically connected to the equipment frame. It may 
be connected to external grounds, as required. 
TRANSMITTED DATA PIN 2: This signal is 
generated by the transmitting terminal and is trans- 
ferred to the local transmitting data set for trans- 
mission of data to the receiving terminal. The 
transmitting terminal will hold ‘‘Transmitted Data”’ 
in marking condition during the intervals between 
characters or words, and at all times when no data 
are being transmitted. 

In all systems, the transmitting terminal will not 
transmit data unless an ON condition is present on all 
of the following four signals: 

1. Request To Send 

2. Clear to Send 

3. Data Set Ready 

4. Data Terminal Ready 
RECEIVED DATA PIN 3: This signal is generated 
by the receiving data set in response to data signals 
received from transmitting terminal via the trans- 
mitting data set. ‘‘Received Data’’ will be held in the 
binary one (marking) condition at all times when 
‘*Received Line Signal Detector’ is in the OFF 
condition. This is called clamping the line. 

On a half-duplex channel, ‘‘Received Data”’ 
signal will be held in the binary one (marking) 
condition when ‘‘Request To Send”? is in the ON 
condition and for a brief interval following the ON 
to OFF transition of ‘‘Request To Send”’ signal to 
allow for the completion of transmission and the 
decay of line reflections. This is called squelch. 
REQUEST TO SEND PIN 4: This signal is used 
to condition the data set for data transmission. On 
simplex channels or duplex channels, the ON 
condition maintains the data set in the transmit 
mode. The OFF condition maintains the data set in 
a non-transmit mode. 

On a half-duplex channel, the ON condition 
maintains the data set in the transmit mode and in- 
hibits the received mode. The OFF condition main- 
tains the data set in the receive mode. 

A transition from OFF to On instructs the data 
set to enter the transmit state which turns on the 
carrier. The data set responds by taking such action 
as may be necessary and indicates completion of 
such actions by turning ON ‘‘Clear To Send,” 
thereby indicating to the terminal that data may be 
transferred on the interchange signal ‘‘Transmitted 
Data.”” 
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A transition from ON to OFF instructs the data 
set to complete the transmission of all data which 
was previously transferred on the interchange signal 
‘“*Transmitted Data’’ and then assumes a non- 
transit mode or a receive mode, as appropriate. The 
data set responds to this instruction by turning OFF 
““Clear To Send’’ when it is prepared to again respond 
to a subsequent ON condition ‘‘Request To Send.”’ 

When ‘‘Request To Send’’ is turned OFF, it 
will not be turned ON again until circuit ‘‘Clear 
To Send”’ has been turned OFF by the data set. 

An ON condition is required on ‘‘Request To 
Send”’ as well as on ‘‘Clear To Send,’’ ‘‘Data 
Set Ready’’ and, where implemented, ‘‘Data Termi- 
nal Ready’? whenever the transmitting terminal trans- 
fer data on the interchange signal ‘Transmitted 
Data.”’ 

It is permissible to turn ‘‘Request To Send”’ 
ON at any time when ‘‘Clear To Send”’ is OFF, 
regardless of the condition of any other inter- 
change circuit. 

CLEAR TO SEND PIN 5: A signal generated by 
the data set to indicate whether or not the data 
set is ready to transmit data. 

The ‘‘Clear To Send’’ ON condition together 
with the ON condition of interchange signals ‘‘Re- 
quest To Send,’ ‘‘Data Set Ready’’ and, where 
implemented, ‘‘Data Terminal Ready’? will be trans- 
mitted to the communication. 


The OFF condition is an indication to the trans- 
mitting terminal that it should not transfer data 
across the interface on interchange ‘‘Transmitted 
Data.”” 

The ON condition of ‘‘Clear To Send”’ is a 
response to the occurrence of a simultaneous ON 
condition on ‘‘Data Set Ready’’ and ‘‘Request To 
Send”’ delayed as may be appropriate to the data set 
for establishing a data communication channel to a 
remote terminal (including the removal of the MARK 
HOLD clamps from the received data interchange 
circuit of the remote data set). 

Where ‘‘Request To Send’”’ is not implemented in 
the data set with transmitting capability, ‘‘Request 
To Send”’ shall be assumed to be in the ON condition 
at all times and ‘‘Clear To Send’’ will respond 
accordingly. 

DATA SET READY PIN 6: This signal is used 
to indicate the status of the local data set. The ON 
condition of this signal is presented to indicate 
SECONDARY RECEIVED DATA PIN 16: This 
circuit is equivalent to ‘‘Received Data”’ 

except that it is used to receive data on the secon- 
dary channel. 

When the secondary channel is useable only for 
circuit assurance or to interrupt the flow of data in 
the primary channel, ‘‘Secondary Received Data’’ 
is normally not provided. See interchange ‘‘Secondary 
Received Line Signal Detector.” 


“SuperBus” 
will haul it all! 


For PET/CBM users. Schools, 
banks, laboratories and 


their capabilities at an 
unbelievably low cost. 


businesses can greatly multiply 


18 Computers can share disk drives, 
printers or other devices on the IEEE bus. 


BB Includes RS-232 and terminal programs. 
(Hardware will soon be available for 
approximately $50.) 
 Auto-boot. You can even initialize disks and 
run “Hello” program. 
Modify your basic commands for restricted 
access (better security). 
M@ RUNSTOP key. Disabled, or 
modified to “Return to menu.” 
Chain disk programs automatically. 
Auto clear. 
B All keys repeat (adjustable). 
Low cost. 2 ROM and 1 disk set 
(one set required 


for each computer). $ 19 5° 


MasterCard, VISA and C.O.D. orders 
accepted. 15-day return privileges. Specify 
N or B keyboard. Dealer inquiries invited. 


VGBERIA UNG. (515) 292-7634 


2330 Lincoln Way, Ames, lowa 50010 


LIMITATIONS WHILE ON THE SUPERBUS: 1) THE CASSETTES CANNOT BE WRITTEN TO. 2) ONLY THE SECOND CASSETTE CAN BE READ FROM. 


3) ONLY ONE USER CAN BE USING THE SYSTEM RESOURCES AT ONE TIME, BUT ANY NUMBER CAN BE WAITING. 
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RECEIVER SIGNAL ELEMENT TIMINGPIN 17: 
Signals on this circuit are used to provide the 
terminal with received signal element timing infor- 
mation. The transition from ON to OFF condition 
shall normally indicate the center of each signal 
element ‘‘Received Data.’’ Timing information on 
‘Receiver Signal Element Timing”’ shall be provided 
at all times when circuit ‘‘Received Line Signal 
Detector,’’ is in the ON condition. It may, but 

need not, be present following the ON to OFF 
transition of ‘‘Received Line Signal Detector.”’ 
UNASSIGNED PIN 18: This pin may be used by 


the manufacturer for any purpose desired. 


SECONDARY REQUEST TO SEND PIN 19: 
This signal is equivalent to ‘‘Request To Send”’ 
except that it requests the establishment of the 
secondary channel instead of requesting the establish- 
ment of the primary data channel. 

Where the secondary channel is used as a back- 
ward channel, the ON condition of ‘‘Request To 
Send’’ will disable ‘‘Secondary Request To Send”’ 
and it will not be possible to condition the 
secondary channel transmitting data set to transmit 
during any time interval when the primary channel 
transmitting data set is so conditioned. Where 
sys.em considerations dictate that one or the 
other of the two channels be in transmit mode at 
all times but never simultaneously, this can be 
accomplished by permanently applying an ON condi- 
tion to ‘Secondary Request ‘To Send’’ and controlling 
both the primary and secondary channels, in 
complementary fashion, by means of ‘‘Request To 
Send.’’ Alternatively, in this case, ‘‘Secondary 
Clear To Send’’ need not be implemented in the 
interface. 

When the secondary channel is useable only for 
circuit assurance or to interrupt the flow of 
data in the primary data channel, ‘‘Secondary 
Request To Send”’ will serve to turn ON the 
secondary channel carrier. The OFF condition of 
“Secondary Request To Send’? will turn OFF the 
secondary channel carrier and thereby signal an in- 
terrupt condition at the remote end of the communica- 
tion channel. 

DATA TERMINAL READY PIN 20: This signal 
is used to control switching of the data set to the 
communication channel. The ON condition prepares 
the data set to be connected to the communication 
channel. 

SIGNAL QUALITY DETECTOR PIN 21: Signals 
on this circuit are used to indicate whether or not 
there is a high probability of an error in the received 
data. 

As ON condition is maintained whenever there 
is no reason to believe that an error has occurred. 

An OFF condition indicates that there is a high 
probability of an error. It may, in some 
instances, be used to call automatically for the 


retransmission of the previously transmitted data 
signal. Preferably the response of this circuit shall 
be such as to permit identification of individual 
questionable signal elements on ‘‘Received 
Data.” 

RING INDICATOR (CE) PIN 22: The ON condi- 
tion of this signal indicates that a ringing signal 
is being received on the communication channel. 
DATA SIGNAL RATE SELECTOR PIN 23: 
Signals on this circuit are used to select between 
the two data signaling rates in the case of dual 
rate synchronous data sets or the two ranges of 
data signaling rates in the case of dual range 
non-synchronous data sets. 

AnON condition shall select the higher data 
signaling rate or range of rates. 

The rate of timing signals, if included in the 
interface, shall be controlled by this circuit as may 
be appropriate. 

TRANSMIT SIGNAL ELEMENT PIN 24: Signals 
on this circuit are used to provide the transmitting 
data set with signal element timing information. 

The ON to OFF transition shall nominally indi- 
cate the center of each 
mitted Data.’’ When ‘‘Transmit Signal Element 
Timing”’ is implemented in the data set, the data 
set shall normally provide timing information on 
‘“*Transmit Signal Element Timing’’ whenever the 
data set is in a power on condition. It is permissible 
for the data set to withhold timing information on 
this signal for short periods provided ‘*Request To 
Send’’isinthe OFF condition. 

UNASSIGNED PIN 25: This pin may be used by 
the manufacturer for any purpose desired. 

Although the ‘ *’ publishes an interface standard, 
some data set manufacturers do not conform to the 
standard in all cases. CHECK the specifications on 
each data set to determine which signals are on each 


pin. © 


ynal element on ‘‘Trans- 


D & R 2nd-Cassette System 
foes) : 
FEATURES: 


Sanyo Recorder M2544A, 

Digital Counter. 

Compatible with EASTERN HOUSE 

Software's High Speed Cassette 

Routines — Loads 8K in 38 seconds. 

Includes Interface Module and all Plugs 

& Cables. 

$83.00 Check or Money Order. YES! 


Add $3.00 for Shipping and Handling. You Can Have 

Canada (U.S. Funds). $6.00 S & H. Mich. a 

4% Tax. Charge Card Customers add 5%. = YourPET And 
Counter Too. 


WD CREATIVE SYSTEMS 
313 — 771-1392 


4 P.0. BOX 402c 
JE® ST.CLAIR SHORES, MI48080 Dealers WRITE 
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INTRODUCING 
THE NEW IMPROVED 


BUSINESS ENHANCEMENTS 
COMPUSERVICE BUSINESS 


SOFTWARE 


FOR 


COMMODORE 


Micro Mini Computer World Inc. is an execlu- 


ments Compuservice of Escondido, 
California. 


If you are selling or using the 
COMMODORE BUSINESS MACH- 
INES or the APPLE computer systems, 
then you should provide yourself and your 
customers with the MOST COST EFFECTIVE and 
COMPREHENSIVE business software for a busi- 
ness computer system. 


CURRENT B.E.C. SOFTWARE 

@ General Ledger--Master File 1000 Accounts 
and Journal File 4400 Entries 

e Accounts Receivable--Master File 1170 
Accounts and Invoice File 1430 Entries 

e@ Accounts Payable--Master File 1170 and 
Invoice File 1430 Entries 

@ Payroll--440 Employees 

@ Job Costing--1100 Items Per Disk 

@ Inventory--1100 Items Per Disk 

@ Mail List/Customer Information--1000 


Entries Per Disk 
Above figures apply to CBM 2001 computer 


system with 32K CPU and 2040 dual disk. 
With the new CBM 8050 Megabyte disk the 
volumes will be increased significantly. 


B.E.C. SOFTWARE FEATURES: 

@ Complete and total documentation 

@ Step by step walk through on every pro- 
gram operation, with examples 

@ Each package is MENU driven and uses 
dynamic load and overlay once the initial 
menu is loaded. 

e@ Examples are provided for all reports and 
other printed forms. All forms are available 


from New England Business Services Inc. (NEBS). 


@ All input/output operations use random access 

e@ Sorts are machine language sorts 

@ Programs are interactive with the General 
Ledger and update the GL automatically. 


cri fh BUSINESS SOFT A ST 
COMPUTE 
SYSTEMS 


B.E.C. VALUE ADDED 
BENEFITS e Total commit- 
ment to the development of excellent 
business software for the 
COMMODORE and APPLE com- 
puter systems. 
e@ At reasonable rates Micro Mini 
Computer World Inc. will provide 
software modifications to meet customer require 
ments. (Call MMCWI for further information) 
@ EXTENDED WARRANTY which entitles 
users to any enhancements to accounting 
software during the year of coverage. 
(Cost is $100 per year) 


Dealers and Interested Parties may obtain a 
copy of the B.E.C. software documentation for 
$25. If after review you are not interested, 
send the documentation back, in re-saleable 
condition, for a full refund or apply the 

$25 toward your first software purchase. 


The NEW B.E.C. BUSINESS SOFTWARE 
requires a special ROM chip for proper 
operation. 


Suggested Retail Prices are: 
1. Rom chip $70 (required on any software 
package) 
2. Individual software package $150 
3. All seven software packages $995 (save 
$55) 


DEALER INQUIRIES ARE INVITED 


micro 
mini 


COMPUTER WORLD inc. 


To hy 


er 
é G oe 
Country snoPPN 
74 ROBINWOOD AVE. COLUMBUS, OHIO 43213 


(614) 235-5813 (614) 235-6058 
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Solving 
Equations With 
A Computer 


Marvin L. De oy 
Department of Mathematics-Physics 
The School of the Ozarks 
Pt. Lookout, MO 65726 
INTRODUCTION 
There is a large body of knowledge, known as 
‘*Numerical Analysis,’’ that is used to solve pro- 
blems that would be either too difficult or too ineffi- 
cient to solve with either hand calculations or an 
electronic calculator. The problems generally attack- 
ed with numerical analysis techniques require either 
a computer or a programmable electronic calculator. 
The purpose of this article is to show how a few 
techniques from numerical analysis can be used to 
solve difficult equations. These techniques do not re- 
quire any extraordinary mathematical skills; a first 
course in high-school algebra will suffice. 

To begin, we will assume you can solve equations 
of the type, 

2x +5 =-3 (1) 
This type of equation is solved using the rules: 
RULE (1) The same number (or algebraic expression) 
can be added or subtracted from both sides of an 
equation. 
RULE (2) Both sides of an equation can be multi- 
plied or divided by any non-zero number (or algebraic 
expression). 


Thus, in Equation (1), we would first subtract 
five from both sides of the equation and next both 
sides of the equation would be divided by two, giving 
x = -4 as the answer. Any equation of the form 

Ax +B=C (2) 
has a solution x = (C - B)/A, which is very eas 
to program in BASIC or FORTRAN. The program 
in Listing 1 does this. Listing 1. Program to solve a 
linear equation. 

10 INPUT A, B, C 

20.X = (C-BY/A 

30 PRINT X 

40 END 
Clearly in this case the problem could just as well 
have been done with pencil and paper. We are inter- 
ested in more difficult problems, but RULES (1) 
and (2) above describe how equations may be modified 
to get the unknown “‘x’’ by itself on one side of the 
equation, and we will need these rules in what follows. 


To these rules we add a third, namely 

RULE (3) In certain cases both sides of an 
equation may be operated on by the same function 
and the results are still equal. 

To illustrate, if x2 = 9, then we may operate on 
both sides of this equation with the square root func- 
tion (SQR in BASIC) to get x = 3. Note that this 
technique misses the answer x = -3, but it illustrated 
the fact that taking the square root of both sides of 
an equation (usually) yields a valid result. Likewise, 
one can take the logarithm (LOG in BASIC) of both 
sides of an equation provided we are dealing with 
positive numbers, and we can take the exponential 
function (EXP in BASIC) of both sides of an equa- 
tion, using RULE (3). 

The type of equations that are of interest in the 
present context can best be illustrated by some ex- 
amples. How would you solve for x in the following 
equations: 


x2 = cos(x) (3) 
eX- 4x = 0 (4) 
log(x) - cos(x) = 0 (5) 


These so-called non-linear equations cannot be 
solved by a simple application of the rules given so 
far. In fact, you may be disappointed to know that 
no single technique will solve all possible non-linear 
equations. Many people like mathematics because it 
seems to follow simple, hard-and-fast rules that lead 
to answers that are either right or wrong. On the 
contrary, mathematics requires creativity and the 
ability to view a problem from many angles. Further- 
more, more often than not, the answers are only ap- 
proximately correct rather than absolutely correct. In 
any case, let us examine two techniques that may be 
used to solve these difficult looking equations. 

The Method Of Successive Substitutions 


The method of successive substitutions is one of the 
simplest techniques used to solve these equations. It 
comes with no guarantee that it will work, but because 
it is simple it is frequently worth trying. 

The first step is to take the equation to be solved 
and using the three rules given in the Introduction, 
put the equation in a form with x on the left-hand 
side and everything else on the right-hand side of the 
equation. For example, the equation x2 = cos(x), 
Equation (3) above, becomes either x = (cos(x))/x or 
x = Vcos (x). It is typical to find several possible 
forms. This step is usually described in textbooks by 
telling you to put your equation in the form 

x = f(x) (6) 
In our example, f(x) is either cos(x)/x or \fcos(x)_ 
depending on whether we are using x = (cos(x))/x or 
x = Neos(x). In any case, the equation is modified 
so that x is all by itself on one side of the equation 
and everything else is on the other side. 

The second step is to guess at a value of x that 
will satisfy the equation. This is an important step 
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because it may determine the success of the method. 
If you cannot make a reasonable guess by inspection 
of the equation or from some other source of infor- 
mation, then you can always have your computer 
print a table of x and f(x) to see where they are 
(almost) equal. For example, if you are trying to 
solve x2 = cos(x) and you have completed the first 
step by transforming the equation to x =  \cos(x), 
then use your computer to make a table of x and 
Neos(x). A few simple statements will suffice, as 
Listing 2 indicates. Be sure to be available to break 
the program because it has an infinite loop. The 
numbers in Table 1 were obtained with the program. 


Listing 2. Program to compare x with f(x) for x = 
\icos(x). 
10X =0 
20 FX = SQR(COS(X)) 
30 PRINT X, FX 
40X =X + .1 


50 GO TO 20 
Table 1 X SQR(COS(X)) 
0.0 1.00 
Output of the 0.1 99 
program in 0.2 98 
Listing 2. 0.3 97 
0.4 
‘O55 
0.6 
OF 87 
0.8 83 
0.9 78 
1.0 fo 


The results obtained from running the program in 
Listing 3 are given in Table 2. After three iterations 
(three times through the infinite loop) the answer (with 
a starting guess of 0.8 radians) is correct to two 
decimal places. After 15 times through the loop the 
answer is correct to six decimal places, namely 
0.824132. Obviously one could build an ‘‘end”’ 
condition into the program. Suppose you want an 
answer correct to six decimal places. Inserting the 
statements: 


35 IF ABS(X - FX) <.000001 THEN 60 


60 END 
would do the trick. 

To illustrate the problems you can have, try solv- 
ing the same equation using the form x = 
(cos(x))/x. Simply replace statement 20 in Listing 3 
with 

20 FX = (COS(X))/X 
and run the program. Remember, this is the same 
equation that we are solving, but with a starting 
value of 0.8 radians you obtain the results given in 
Table 3. In this case, the answers do not get closer 
and closer to a solution, but the process diverges. 
Your luck has run out, but you were warned that the 
method does not always work. A way to tell if the 
method is going to work is available, but its explana- 
tion is beyond the scope of this article. Consult the 
reference at the end of this article. 


The values of SQR(COS(X)) in Table 1 have been 
truncated to two decimal places. Note in particular 
that at X = 0.8 the function f(x) = SQR(COS(X)) 
is 0.83 which is larger than X, while at X = 0.9 the 
function is .78 which is smaller than X. Thus, 
somewhere in between 0.9 and 0.8 the function will 
be equal to X, and the equation x = f(x) will be 
satisfied, giving us the answer. Thus, a good initial 
guess at a solution is either 0.8 or 0.9; either one will 
do. 

The next step in solving the equation by the 
method of successive substitutions is to iterate. What 
this means is that we substitute our guess into f(x), 
getting a new value for x. If we call our first guess 
Xo then our next guess is obtained from the equation 

x1 = S(*o) (6) 
and successive guesses (or approximations) are ob- 
tained from the following equations: 

x2 = f{x1), 

x3 = f(x2), 
etc. All of this ts handled in the program in Listing 3. 
Study this program to see how the process is done. 


\cos(x). 


Listing 3. Program to iterate x = 
10 X = 0.8 
20 FX = SQR(COS(X)) 
30 PRINT FX 
40 X = FX 
50 GO TO 20 


Table 2. Results obtained | Table 3. Iteration results 


with the form from x = 
x = \cos(x). (cos (x))/x 
0.8 arting value value 


1.58028501 


-6.00432032E-03 
-166.543742 
5.99978489E-03 
166.669642 


One other illustration should suffice before we move 
to another technique. Consider Equation (4). It is 
not in the form x = f(x), but if we use RULE (1) 
and add 4x to both sides we get 4x = 3%. Using 
RULE (2) we divide both sides of the equation by 
four to get our required form, namely x = (e%)/4. 
Replace statement 20 in Listing 3 with FX = 
EXP(X)/4 and pick a starting value of say X = 0. 
In 15 iterations you will have found a solution good 
to six decimal places; X = 0.3574029 (the trailing 9 
may be uncertain). However, the flush of success 
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may drain from your rosy cheeks when you realize 
that this equation has two answers, and the method 
of successive substitutions will not work to find the 
other answer. 

How do we know that the equation has two 
answers? If you write a short program to print the 
value of eX -4x for some values of x, you obtain the 
results in Table 4. Note that the function e* - 4x is 
positive at x = 0.2 while it is negative at x = 0.4. 
That means that somewhere between 0.2 and 0.4 the 
function e* - 4x went through zero, and at that point 
the equation was satisfied. That is the answer we 
found above, namely x = 0.3574029. Note also that 
atx = 2 the function is negative, while at x = 2.2 the 
function is positive, indicating that another answer is 
to be found between 2.0 and 2.2. Try to find this 
answer with successive substitutions. 


Table 4. The value 
of eX -4x versus x. 


x EXP(X) - 4*X 
0.01.00 


The Method Of Interval Halving 
The failure of the method of successive substitutions 
to converge to an answer in certain situations is 
reason enough to look for another method. The 
method of interval halving is particularly attractive 
because you are (almost) guaranteed that it will find 
an answer if you know that the answer lies between 
two numbers. Refer again to our problem of finding 
the solution to the equation eX -4x = 0 and Table 4. 
Table 4 indicates that one answer is between 0.2 and 
0.4 and another answer is between 2.0 and 2.2, 
because the function e* -4x changes sign on these intervals. 
The first step in the interval halving method is to put 
the equation to be solved in the form 

f(x) = 0 (7) 
and to find two values of x (call them xy, and xp, L 
and R for left and right) such that the function f(x) is 
positive for one of these values of x and it is negative 
for the other. 

Suppose we deal with our example, e% - 4x = 0. 
It already is in the form f(x) = 0. Furthermore, let 
us concentrate for the moment on the solution that 
we could not find with the method of successive 
substitutions. That solution we know to be between x 
= 2.0 andx = 2.2. Thus, xy, = 2.0 andxp = 2.2 


The second step is to try a value of x half-way 
between xy, and xp. This is where the name “‘inter- 
val halving’’ originates. This value of x, call it XM 
(M for middle) is given by the simple expression, 

XM = (XL + xR)/2 (8) 
Now comes the tricky part. Suppose f], is the value 
of the function when xy, is substituted (plugged in) 
into f(x), and suppose fyy is the value of the function 
when xy is plugged into the function f(x). If the 
product (fL, . fy) is positive, then xq lies to the left 
of the answer just like xz,. We know this because the 
product can only be positive if f[, and fy have 
the same sign. In this case, we replace x], with a new 
value, namely xyy. On the other hand, if the product 
(fL, - fy) is negative, then fy, and fy have opposite 
signs, and xy is to the right of the answer. In that 
case we replace xp with xpy, giving a new value for 
xp. In either case, we have bracketed the answer in 
an interval half as wide as the interval we started 
with, 

Repeating this process allows us to bracket the 
answer in as small an interval as we wish, with the 
answer as accurate as we wish. Each time we 
calculate a new xpj we must test the sign of the pro- 
duct (ff, . fy) to see if xp is to the right or left of 
the answer. If the answer was originally known to be 
in an interval of width w, where w is the difference 
between our first xp and xz, then after n iterations 
or repetitions of the interval halving process, the er- 
ror in the answer is w/2", Thus, after 10 iterations 
the error in the answer is about 1/1000 of the 
original uncertainty in the answer. 

A program to solve the equation eX - 4x = 0 
with the method of interval halving is given in 
Listing 4. With litte modification, this program can 
be used for other equations as well. The variables in 
the program in Listing 4 are closely related to our 
previous discussion, so no further explanation will be 
given. I expect that most people can understand 
BASIC about as well as algebra. Table 5 shows the 
answers we obtain for both of the solutions to this 
equation. A total of 20 iterations are done in the pro- 
gram, giving an error of less than 0.00000096 if the 
distance between the original xy, and xg were 
than one. The roundoff error in many machines will 
exceed this. 


Listing 4. Interval halving used to solve e* - 4x. = 
10 INPUT XL, XR 

20 FORT = 1 TO 20 

30 XM = (XL + XRy/2 


40 FL = EXP(XL) -4*XL 
50 FM = EXP(XM) = 4*XM 
60 IF FL*FM<0 THEN 90 


70 XR = XM 

80 GO TO 100 

90 XR 5 XM 

100 PRINT XM 

110 NEXT | 

Are there any practical applications of these techni- 
ques for ordinary citizens? The answer is yes. Sup- 
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Hard Working Software for PET/CBM™ Micros 
PRO-GRESS™ 


MATRIC™ 


MATRIC expands Commodore BASIC 
with fourteen new commands for hand- 
ling arrays. 


Display a matrix on the screen and 
change its values. Transfer data between 
matrices or fill a matrix with a constant. 
Transpose. Transfer diagonals between 
matrices, or from a matrix to a vector, or 
from a vector to a matrix, or fill a diago- 
nal with a constant. Do vector or matrix 
addition, subtraction, multiplication; 
elementwise multiplication, division, 
squares, and square roots. Inversion. 
Determinant. Eigenvalues and eigen- 
vectors of a square, symmetric matrix. 


Algebraic style syntax, checks for con- 
formability, extended error messages. 


The 5K machine language program 
comes on tape or disk with a 32-page 
manual. Specify size and ROM set of 
your machine, Price: $125. 


Order your WorkerWare from: 


This multiple regression program reads 
data from tapes or CBM disk. Concaten- 
ates files. Selects records. Deletes cases 
with missing data. Transforms variables. 
Generates new variables. Allows key- 
board input of means, standard devia- 
tions, correlations. Names variables. 


Provides means, standard deviations, cor- 
relations; R, R-square, F, degrees of free- 
dom; constant and coefficients, betas, 
Student's t's. Output to screen, or to 
ASCII or CBM printer. 


Analyzes 10 predictors in 8K; 25 in 16K; 
45 in 32K. No limit on number of records. 
Approximate timing: % minute per 100 
records with one predictor; 30 minutes 
per 100 records with 45 predictors. 


You get two programs and a manual. 
Program | has elaborated instructions, 
requires 16K or 32K. Program II has 
abbreviated instructions, runs in 8K or 
more. Cassette tape: $45. Disk: $50. 


TEXTCAST II” 


A word processor 
machines, old or 
machine language. 


for 8K and larger 
new ROMs. All in 


Edit with tapes or disks in any combina- 
tion. Produces ASCII files that can be 
used by other programs. 


Unfinished words at the end of a line 
leap to the next line while you type. 
Powerful screen editor with full control 
over visible cursor. Repeat action on all 
keys and commands. 


Use printer in typewriter mode. Prints 
files with centering (enhance on PET 
printer), underlining (reverse on PET 
printer), right justification, page num- 
bers at top or bottom. Set left margin 
and line length. Transmits all NEC Spin- 
writers’ characters and commands. 


You get old and new ROM versions of 
the program, and revised manual. On 
tape: $75; on diskette, $80. 


COGNITIVE PRODUCTS,” P.O. Box 2592, Chapel Hill, NC 27514 


COMPUTE! 
HAS MOVED 


Our New Telephone Number is 
919 275-9809 


We Are Now Located At 
200 East Bessemer Avenue, 
Greensboro, NC 27401 


Our Mailing Address Is Unchanged 
P.O. Box 5406 
Greensboro, NC 27403 
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pose you are paying on a loan whose balance is BAL, 
using equal monthly payments called PMT, and you 
have N payments yet to make. What is the 
equivalent simple interest rate, called the APR, of 
your loan? The equation relating these quantities is 


BAL = PMT((1- (1 +1)-Ny/) (9) 


Table 5. Results of the program in Listing 4. 
XL = 2.0, XR = 2.2 
XM 

2.1 

2.15 


XL = 0.3, XR = 0.4 


402039 
402802 
403183 
57402993 
57402897 


Note that in Equation (9), I is the monthly interest 
rate, and it must be multiplied by 1200 to convert it 
to an annual rate expressed in a percent form. In 
any case, I challenge you to solve Equation (9) by 
straightforward, direct techniques. Refer to the 
July/August issue of COMPUTE. for a solution of this 
equation by interval halving. 

I would like to conclude this article by saying 
that you have only seen the tip of the iceberg as far 
as numerical analysis is concerned. One of the best 
elementary texts on this subject is Peter A. Stark’s 
INTRODUCTION TO NUMERICAL 
METHODS, Macmillian, 1970. Note that many 
techniques require a knowledge of calculus. You may 
want to check your library for textbooks on the sub- 
ject. One last plea: if you are a high school student 
who is planning a career in computer science, please 
get all of the courses in mathematics that your school 
offers. Although you do not have to be a 
mathematical genius to work in the computer field, 
every tool in the old toolbag will be helpful. 


Appendix A. 
The method of successive substitutions is guaranteed to 
converge to an answer if 
IF"(x)lb1 <1 
where x is any number in the interval between the 
first guess and the answer. 


Appendix B. 


The method of interval halving will not work in the 


Jouble root to a polynomial 


somewhat unusual case 
equation. For example, if a factor of a polynomial equation 
is 

(x - 1)? = x2-2x + 1 = 0) 

then the solution at x = 1 cannot be found with interval 
halving. 

Appendix C. 

One of the most popular iterative techniques is known 
as Newton’s method or the Newton-Raphson method. It 
was not mentioned here because it requires a knowledge 
of calculus, The iterative formula is: 

xj + 1 = xj - F(x)/F1(ii) 

where it is assumed that the equation is initially in the 


form F(x) = 0. © 


PET and APPLE II Users 
PASCAL 


ABACUS Software makes available its version of TINY PASCAL for 
the users of two of the most popular personal computers. 

TINY PASCAL is a subset of the standard PASCAL as defined by 
Jensen and Wirth. It includes the structured programming 
features: IF-THEN-ELSE, REPEAT-UNTIL, FOR TO/DOWN 10-DO, 
WHILE-DO, CASE-OF-ELSE, FUNC and PROC. Now you can learn the 
language that is slated to become the successor to BASIC. 

TINY PASCAL is a complete package that allows you to create, 
compile and execute progams written in the PASCAL language. 
You can save source and object code on diskette or cassette (PET 
version only). Comprehensive user's manual included. The manual 
can be examined for $10 (refundable with software order). 


REQUIREMENTS 
PET 16K/32K New ROMS cassette $40 
PET 16K/32K New ROMS diskette $35 
Apple II 32K Applesoft ROM w/DOS $35 
Apple I| 48K Applesoft RAM w/DOS $35 
TINY PASCAL User's Manual $10 
6502 Interpreter Listing $20 


FREE postage in U.S. and CANADA 
All orders prepaid or COD 


master charge 


£344444 


initia! 


ABACUS SOFTWARE 
P. O. Box 7211 
Grand Rapids, Michigan 49510 
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An Introduction to Small Business 
Software for the PET*. II. 


Can DR. DALEY’s offer a better 
Mailing List Maintenance System? 


You've seen them all! Every software sup- 
plier offers a mailing list system of some 
sort or another. Each of them has some ad- 
vantages and some disadvantages over the 
others. 

So when DR. DALEY'’s decided to offer 
a mailing list we felt that it had to offer 
some other advantages over all of the 
others. We have offered—and sold 
some—mailing list systems before, but 
these offer few things that makes them 
unique. 


SERIOUS BUSIN 

When you wish to purchase a software 
system for any business purpose you need 
to give it serious and thorough considera- 
tion. What do you wish to accomplish with 
the software? What are your needs? How 
can a computer assist you in filling these 
needs? We have asked these questions 
numerous times to people who do mailings 
with lists in the size range of 500 to 15,000 
names. The result was unanimous: every- 
one has different information needs. This, 
of course, means that everyone who buys a 
mailing list system, or any other business 
software, must find a program that comes 
closest to his needs. This is a time consum- 
ing, expensive task. We've talked with 
businessmen who have become frustrated 
with this process and are ready to throw in 
the towel. Another option is to hire a pro- 
grammer to write the software for you or to 
write your own. This can cost more than the 
cost of the computer. 

The last option is to find prepackaged 
software which each individual user can 
easily configure to his own needs. This 
would allow each business to customize its 
own computer maintained mailing list files 
to, as closely as is possible, parallel the cur- 
rent mailing list operation. Until now, this 
option has been virtually impossible to 
fulfill, from any software publisher. 


IMPLEMENTATION 

Our computerized mailing list system is 
designed to be for you, the user, to be 
able to easily configure your files to contain 
information in much the same way as you 
currently are doing. This means less of the 
pain and anguish that frequently accom- 
panies computerization. 

During the programming the author was 
in frequent contact with potential end 
users. The main thought during the 
development phase was to make the opera- 
tion easy to understand, yet powerful 
enough to handle the job. Give the user as 
many options as is feasible, with the flex- 
ibility to make the greatest possible use of 
the file information. Finally, be sure that 


the capacity of the system is suffici 
allow most any business to make use of it. 

The final version will allow records of 
117 USABLE characters in length with a 
maximum of 15 fields within each record. It 
also allows reasonably large capacity with 
multiple diskette (maximum of 100 dis- 
kettes on a 32K PET or CBM) files and up 
to 1340 records per diskette. 


WHAT ABOUT SORTING? 

We hear this question most frequently 
from you. This is because sorting is the 
operation that divides the MAILING LIST 
system from any mailing list system. Why 
sorting? Well it is the way that the user can 
do such things as selective mailings to 
groups with common characteristics. This 
could include regional mailings, mailings to 
customers of a particular product, mailings 
to purchasers or to prospective customers, 
etc., etc. Or you might wish to make any 
possible combination of these categories. 

Try to do this on most ordinary mailing 
list programs. You simply can’t do it with 
most of the offerings on the market today. 

This sorting is done by a ‘‘wild card’’ 
type of sort. This means that you can 
specify the contents of any portion of a 
field for a match and the computer will take 
any match for the rest of the field. This type 
of sort is best illustrated with the following 
examples 
A sort key can be: **R**1 

Matches with FORTAI 
and T4R321 
and %/R@31 
Our system allows this type of sorting using 
up to three fields within each record. Thus 
you should be able to retrieve almost any 
conceivable subset of the files. 

File organization is done using two of the 
fields as sort keys. This again is user select- 
able. You could, for example, specify that 
you wish the file to be in ZIP CODE se- 
quence or in alphabetical sequence and all 
records within the file will be sequenced 
with that field. There is also a second sort 
field which is used to sequence the file 
where the first field is the same. 


WHAT ABOUT LABELS? 
We hear this one almost as often as the 


Charge to 
your 
MC/VISA 


THE INTERBANK CARO 


sorting. Well, here this is up to you. You 
can, al the time you print labels, choose the 
layout of the labels, you can also choose the 
number of labels per line. If you wish to 
have a four line address and printed four 
records wide you can do it. 


WHAT ABOUT EDITING? 

Editing is accomplished at several points 
in the program. These are at the time of en- 
try, before saving the records to the file and 
from the disk file. You can easily modify 
any record at any of these points. 

This does not really cover all of the 
operations on the files. Space simply does 
not allow a more complete description of 
the user oriented approach of the program. 

We asked the question: Can we offer a 
better mailing list system? You bet we can! 
It’s here now. 


HARDWARE REQUIREMENTS 


At present this requires a Commodore 
PET or CBM computer with a dual disk 
drive and a printer. It is set up to work with 
the Commodore printer or with most any 
other printer. Watch for these programs to 
be introduced for use with other types of 
popular microcomputers. The APPLE II 
version will be available about June 1, 1980. 
Watch for it! 


ORDERING 


At the present time many Commodore 
dealers do not carry our software. Thus you 
will most likely need to either persuade 
them to order for you or calling us directly 
at (616) 471-5514 anytime between noon 
and 9 p.m. Eastern time Sunday through 
Thursday. For only $99.95 plus four per- 
cent tax in the state of Michigan, you get 
this powerful, field tested, fully docu- 
mented program packaged in a convenient 
three-ringed binder. 


INVENTORY 

We must add this note. There is too little 
space to allow us to describe the INVEN- 
TORY system adequately here. It offers the 
same flexibility as does the MAILING LIST 
described above, but we can’t tell you much 
more. Write or call for details. It also is 
priced at $99.95. 


s 


DR. DALEY’s Software 
425 Grove Ave., Berrien Springs, MI 49103 
Phone (616) 471-5514 
Sun.-Thurs. noon to 9 p.m., Eastern Time 


*Watch for it on the APPLE II. 


Train Your PET® 


with MICRO-ED 


instructional tapes 


All programs 
work with any 
8K PET, old or 
new. PET is 
the registered 
trademark for 
Commodore 
Business 
Machines, 
Santa Clara, 
CA. 


MICRO-ED has educational software for the PET 
microcomputer. We specialize in programs with 


these features: 


eThey have been written by profes- 
sional educators. Our main author is 
Thorwald Esbensen, named in 1980 as 
one of North America’s top school ex- 


ecutives by Executive Educator 
magazine. 

eOur tapes are independent 
modules, each one a complete 
lesson in itself. 


eEvery instructional lesson ends with a sum- 
mary of student performance. 


°Our programs are attractive and motivating to 
students. 


eWe will gladly replace any tape that fails to load 
or run properly. 


Unless otherwise specified 


each tape can be 


purchased for $7 95 


MUSIC (these tapes use sound) REFERENCE SKILLS VOCABULARY 
eMU-1 Lines and Spaces of the Treble °*RS-1 Dictionary Guide Words VO-1 Synonym Series 
Clef (elementary) (high school and adult) 
(elementary) °RS-2 Library Terms Oitapes: wiseia <iore oeet $21.00 
*MU-2 Higher, Same, Lower (elementary) VO-2 Vocabulary Series : 
(elementary) *RS-3 Making an Outline (upper elementary and high 
‘ school) 
*MU-3 Matching Rhythms (elementary) 2M tapes vax cade dace $168.00 
(elementary) ¢RS-4 Putting Fiction Books in VO-3 — Antonym Machine 
Alphabetical Order (elementary) 


(elementary) 


VO-4 Homonym Machine 
(elementary) 


You may wish to order tapes by the MICRODOZEN. Any twelve $7.95 tapes can be 
purchased for $84.00. 


Also from 


eMA-1 
°MA-2 


°¢MA-3 


°MA-4 


MATHEMATICS 
Math Bid (elementary) 


Count ‘Em (kindergarten and first 
grade) 


Story Problems in Addition and 
Subtraction 
(elementary) 


What Number is Missing? 
(kindergarten and first grade) 


MICRO-ED 


°MA-14 


°MA-15 


*MA-16 


Locomotive 
(uses a 3G Light Pen) 
(kindergarten and first grade) 


Math symbols: Greater Than, Less 
Than 


(elementary) 


Math symbols: Greater Than, Less 
Than 

(uses a 3G Light Pen) 
(elementary) 


*MA-9 Working with Basic 
Multiplication Facts 
(elementary) 

*MA-10 Adding or Subtracting Two- 
and Three-place Numbers in 
Columns 
(elementary) 

*MA-11 Math Shootout 
(elementary) 

*MA-12 Bar Graph (elementary) 


¢MA-13 Which Number Comes Next? 
(uses a 3G Light Pen) 


*MA-5 Target Math 
(elementary) 

*MA-6 Adding with Objects 
(primary grades) 


°MA-7 Subtracting with Objects 
(primary grades) 


¢MA-8 Working with Basic Addition 
Facts 
(primary grades) 


*MA-17 Addition with Carry 
(by Don Ross) 
(elementary) 
$20.00 


*MA-18 123 Digit Multiplication 
(by Don Ross) 
(elementary) 
$20.00 


*MA-19 Long Division 
(by Don Ross) 
(elementary) 


(first grade) $20.00 
SPELLING WORD DEMONS READING 
¢SP-1 Guess That Word *WD-1 To/Too/Two *RE-1  Tachistoscope 
(elementary and up) (elementary) (elementary) 
eSP-2 Level A ¢*WD-2 There/Their/They're *RE-2 Reading Racer One 
(second grade) (elementary) (elementary) 
Ttapes .........0005 $49.95 eWD-3 Its/It’s — Your/You’re *RE-3 Matching Capital Letters 
¢SP-3 Level B (elementary) (pre-school and kindergarten) 
(third grade) ‘ *WD-4 Sit/Set eRE-4 Matching Capital Letters 
‘Ttapes: siswia are eed 49.95 (elementary) (uses a 3G Light Pen) 
°SP-4 Level C *WD-5 Lay/Lie (pre-school and kindergarten) 
(fourth grade) (elementary) *RE-5 Which Letter Comes Next? 
: PUapeS a4 ainka date aio $49.95 (primary grades) 
°SP-5 Level D *RE-6 Which Letter Comes Next? 
(fifth grade) (uses a 3G Light Pen) 
Pe CAPES? a cihavans.si maze aeapery $49.95 GRAMMAR (primary grades) 
°SP-6 Level E . *RE-7 Matching Words 
(sixth grade) *GR-1 Agreement of Subject and Verb (kindergarten and first grade) 
PTAPES ices miwes aes $49.95 (elementary and up) *RE-8 Matching Words 
¢SP-7 Compound Words °*GR-2 The Noun (uses a 3G Light Pen) 
(elementary) (elementary and up) (kindergarten and first grade) 
e¢SP-8 Hard and Soft C *GR-3 The Verb *RE-9 — Identifying Complete 
(elementary) (elementary and up) Sentences 
¢SP-9 Hard and Soft G *GR-4 The Adverb (elementary) 
(elementary) (elementary and up) *RE-10 Make a Sentence 
¢SP-10 Dropping the Final E *GR-5 The Adjective (uses sound) 
(elementary) (elementary and up) (first grade) 
PUNCTUATION OTHER “OT Glee ites 
¢PU-1  Run-on Sentences *OT-1 Trail West *OT-6 U.S. Time Zones 
(elementary) (elementary through adult) (elementary and up) 
*PU-2 The Apostrophe *OT-2 Direction and Distance *OT-7 States and Capitals 
(elementary and up) aoe seuaaty grades) (elementary and up) 
°OT- ‘ 
e¢PU-3 End Punctuation is ws d SOLS Answer Bor . 
(elementary) (elementary and up) (teacher in-service) 
¢OT-4 Pet Counselor °OT-9 Hat in the Ring 
(adult) (A Presidential Election Game) 
(elementary and up) $9.95 
USAGE Send for free catalogue: 
°US-1 Usage Boners 


MICRO-ED, Inc. # P.O. Box 24156 ® Minneapolis, MN 55424 


(elementary and up) 
WSRAP OS siicrare weacin 3 $99.00 
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Computers 
and The Susan Semancik 
Handicapped 


Updates to Issue #5’s 

Computers And The Handicapped 
Column: 

Programs 2 and 3, written for the use of the 
Prestodigitizer Board with the handicapped, have 
been updated so that they will both run on either 
Old or New ROM PET Computers. In addition, 
they have both been expanded to allow punctuation 
to be entered, to allow the user to stop the programs 
without turning the computer off, to allow a space to 
be entered in order to separate letters or words in the 
messages appearing on the PET’s screen, to allow in- 
dividual letters to be deleted, and to allow the clear- 
ing of the entire screen - all from codes entered from 
the Prestodigitizer Board! 

The last four modifications each required 
specialized codes to be developed in both Braille and 
Morse Code. Since program 3 uses only Level I 
Braille capital letters and punctuation, the four 
necessary codes were taken from Level II Braille and 
should pose no contradictions in this usage. They are 
illustrated below: 


STOP SPACE DELETE CLEAR 
. @ iw . @ .@ 
.@ sini wee .@ 
7 a 


The changes to program 3 are described below: 
The directions in Lines 1-8 reflect the above 
mentioned changes. 

1 REM *** PROGRAM 3 - DIGITIZER BRAILLE *** 
2 REM 

3 REM WILL ACCEPT LETTERS, COMMA, PERIOD, 
AND QUESTION MARK. 

4 REM USE REGIONS 1-6 FOR THE BRAILLE CELL 
INPUTS; REGION 7 TO END AN INPUT 

5 REM FOR A SPACE, USE DOT 6 

6 REM TO DELETE A CHARACTER, USE DOT 4 

7 REM TO CLEAR THE SCREEN, USE 4 & 5 

8 REM TO STOP THE PROGRAM, USE 4,5, & 6 
Lines 9, 300, and 310 are necessary to determine 
the proper zero page locations for either an Old or 


New ROM PET. 


9 P = PEEK(50003):Q = P*160:L = 200°P +6 

300 POKEQ,161:POKEQ + 1,3: POKEL,221:POKEL + 1,3 
310 POKE863,L:POKE909,Q 

Line 80 enters the end of the assembly language 
program into memory, storing the ASCII value in 
memory location 922 just before the character is 
printed. 


80 DATA192,0,16,3,76,63,3,177,0,141,154,3,32,210,255, 
96,-1 
The disassembled listing would then be changed as 
follows: 
910: STA 922 

JSR 65490 

RTS 
By returning to the BASIC program after printing, 
line 410 will check to see if location 922 contains a 
96, which will end the program. Since 96 repre- 
sents a shifted space, this will not affect the appearance 
of what has been printed on the screen. 
400 PRINT“ 
410 SYS(826):IFPEEK(922);,96THEN410 
420 END 
Lines 130 and 140 contain the ASCII of space, 
delete, clear, and shifted space in the appropriate 
locations. 
130 DATAO,65,20,67,44,66,73,70,0,69,147,68,0,72,74,71, 
0,75,0,77,76,83,80,0 
140 DATA79,0,78,0,82,84,81,32,0,0,0,0,0,0,0,0,0,96,0,46, 
0,87,0,0,85,0,88,63,86 
The four new necessary Morse codes were taken 
from specialized vowels that would not ordinarily 
be used in this type of communication program. 
They are listed as follows: 
STOP SPACE 


DELETE CLEAR 


The changes to program 2 are described below: 

The directions in Lines 1-8 reflect the above mentioned 
changes. 

1 REM *** PROGRAM 2 - DIGITIZER MORSE *** 

2 REM 

3 REM WILL ACCEPT LETTERS, COMMA, PERIOD, 
AND QUESTION MARK. 

4 REM USE REGION 1 TO INPUT A DOT; REGION 2 
FOR A DASH, REGION 7 TO END INPUT 

5 REM FOR A SPACE, USE ..-.. 

6 REM TO DELETE A CHARACTER, USE ..-- 

7 REM TO CLEAR THE SCREEN, USE .-.- 

8 REM TO STOP THE PROGRAM, USE ---. 

Lines 9 and 130 are necessary to determine the proper 
zero page locations for either an Old or New ROM 
PET. 

9 P = PEEK(50003):Q = P*160 

130 POKE5254,4:POKE5255,5:POKEQ, 136:POKEQ + 1,19: 
POKE917,Q:POKE937,Q 

Lines 60-80 enter the end of the assembly language 
program into memory, with the look-up table pointing 
to the character with the lowest ASCII value used, 
which is 20 for the Delete key. 


60 DATA76,76,3,169,20,141,216,3,160,0,174,215,3,177 ,0, 
205,215,3,240,12,200,200 

70 DATA238,216,3,192,0,240,17,76,145,3,200,177,0,205, 
213,3,208,237 

80 DATA173,216,3,32,210,255,96,-1 


This changes the disassembled listing: 
906: LDA# 20 


Since location 984 is keeping track of the ASCII 
value of the character pointed to in the table, it 
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needs to be increased everytime the pointer moves up 
in the table. Also, adding more table values affects 
the table limit to be checked. 

925: INC 984 


CPY# 0 
BEQ +17 


Since the ASCII values have kept up with the pointer, 
adding is no longer needed. The ASCII value of the 
character is placed in the accumulator for printing. 
943: LDA 984 


JSR 65490 
RTS 


By returning to the BASIC program after printing, 
Line 140 will check to see if location 984 contains 

a 96, which will end the program. Since 96 
represents a shifted space, the appearance of the screen 
has not been affected. 

135 PRINT 7; 


140 SYS(826):IFPEEK(984);,96THEN 140 
150 END 


Lines 110 and 123 insure all the unused table 
values will be set to zero. 


110 READOP:IFOP = -1THEN123 

123 FORI = 5000T05255:POKEI,0:NEXTI 

Lines 125 and 126 set the alphabetic characters in 
the proper place in this expanded table. 

125 I=5090 

126 READOP:IFOP = -1THEN128 

Lines 128-130 set the punctuation characters 

and the four special characters in the proper table 
locations. 

128 POKE5000,4:POKE5001,3: POKE5024,5:POKE5025,4: 
POKE5048,6:POKE5049,51 

129 POKE5052,6: POKE5053,21: POKE5086,6: POKE5087, 
12:POKE5152,4:POKE5153,14 

These programs were also tried out at the Marine 
Science Center’s Communication’s Workshop for the 
handicapped. The blind students in particular were 
excited about the digitizer pad and were able to com- 
municate to the deaf through messages entered on 
the PET’s screen. Using these programs in conjunc- 
tion with some other equipment we've been ex- 
perimenting with gave us some fascinating results 
that we hope to be able to share with you in the next 


issue of COMPUTE! (o} 


The Delmarva Computer Club 
P.O. Box 36 
Wallops Island, VA 23337 


PET-APPLE-KIM-TRS-80 
Computer Interfacing 


PET - Bidirectional Serial and Parallel interface. (SADI) $295.00 
Microprocessor based. Talk to another computer and a printer at the same time. 
Transfer programs between PETs. 32 character buffer. RS-232 in and out. Cen- 
tronics compatible. Much more. Packed with features 
PET - RS-232 Addressable Printer interface (ADA 1400) $179.00 
Complete with cables, case and power supply. Cassette with programs included. 
PET - Centronics or NEC 5530P SPINWRITER (ADA 1600) $129.00 
Complete with case, cables and connectors. Three position switch for up- 
per/lower case, reverse case and upper case only. Works with WORDPRO and 
BASIC. 
PET Word Processor. On tape - $39.50, On disk - 49.50 
Compose and print letters, flyers, ads, manuscripts, etc. Uses disk or tape. 30 
page manual included. 
Analog to Digital Conversion Systems 
16 inputs - 8 bits - 0 to 5 volts - 80 usecond conversion time. Read temperature, 
light levels, voltages, etc. Cabling. power supplies, software included 
PET, APPLE, TRS-80 $295.00 
KIM, AIM65, SYM $285.00 
Clock, Calendar, Remote Controller (Super X10) for your computer. $295.00 
Transmits to all the BSR X10 remote control modules (up to 255 devices). 
Stores sequences of control commands that can be initiated by time or an ex- 
ternal even such as a switch closure. Maintains a month, date, day of week, and 
year calendar. Stays on when your computer is off. Complete with cable and 
connectors, PET, APPLE, TRS-80 (specify). 
RS-232 to current loop adapter (ADA 400). $29.50 
Two circuits - | each direction, Run an RS-232 device off a computer's teletype 
port or vice versa. Optoisolated. 
All our products are assembled and tested with a 30 day money back guarantee. 120 
day limited warranty. VISA, Mastercard or check. Add $3.00 S&H. Foreign orders add 
10%. Mention this magazine and deduct 3%. 


Connecticut 
microComputer, Inc. 


34 Del Mar Drive, Brookfield, CT 06804 
203 775-4595 TWX: 710 456-0052 


DISK DRIVE WOES? PRINTER INTERACTION? 
MEMORY LOSS? ERRATIC OPERATION? 
DON’T BLAME THE SOFTWARE! 


ein) 
4 


ey 
1so-1 <—G 1SO-2 


Power Line Spikes, Surges & Hash could be the culprit! 
Floppies, printers, memory & processor often interact! 

Our unique ISOLATORS eliminate equipment interaction 
AND curb damaging Power Line Spikes, Surges and Hash. 
*ISOLATOR (ISO-1A) 3 filter isolated 3-prong sockets; 
integral Surge/Spike Suppression; 1875 W Maximum load, 

1 KW load any socket $56.95 
“ISOLATOR (ISO-2) 2 filter isolated 3-prong socket banks; 
(6 sockets total); integral Spike/Surge Suppression; 

1875 W Max load, 1 KW either bank 


*SUPER ISOLATOR (ISO-3), similar to ISO-1A 
except double filtering & Suppression .... 
*ISOLATOR (1SO-4), similar to 1SO-1A except 
unit has 6 individually filtered sockets .. . . 
*ISOLATOR (ISO-5), similar to 1SO-2 except 
unit has 3 socket banks, 9 sockets total ... $79.95 
*CIRCUIT BREAKER, any model (add-CB) Add $ 7.00 
*CKT BRKR/SWITCH/PILOT any model 


$85.95 


$96.95 


Add $14.00 
PHONE ORDERS 1-617-655-1532 


LZ Electronic Specialists, Inc. 


171 South Main Street, Natick, Mass. 01760 


Dept. C 
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Let Your Pet Play Politics with 
HAT IN THE RING 
A Presidential Election Game 


Thorwald Esbensen 


Here is a timely social studies game that readers of 
COMPUTE have permission to copy for their own 
personal use. The program will run on any 8K PET, 
old or new. 

HAT IN THE RING is a two-player exercise 
designed to acquaint students with some of the 
political considerations involved in running a 
presidential campaign. Each player assumes the role 
of a presidential candidate - one for the Republicans, 
the other for the Democrats. Throughout the exer- 
cise, each candidate makes decisions intended to 
result in a successful campaign. 

At the outset, each candidate has 9 units of 
priority resources that can be assigned as needed in 
order to bolster the campaign in any of the states. 
The overall campaign ends after each candidate has 
made, in alternating turns, 10 decisions. 

Within each state, the outcome of the campaign 
hinges upon four factors: 

- Media Exposure 

- Personal Campaigning 

- Domestic Issues 

- International Issues 
Although the weight of these four factors is randomly 
determined by the computer, the probabilities are 
that Media Exposure and Domestic Issues will prove 
to be substantially more powerful in their impact 
than will the factors of Personal Campaigning and 
International Issues. The political situation in each 
state keeps changing as the game progresses. 

As the campaign begins, the computer randomly 
chooses the candidate who will have the first turn. 
The computer may be commanded to do one of six 
things: 

1. Raise funds (increase resources). 

2. List the states in which the Republican can- 

didate leads. 

3. List the states in which the Democratic candi- 

date leads. 

4. List the current probable electoral count for 

each candidate. 

5. List each candidate’s remaining resources. 

6. Get ready to display the political situaiton in 

state. 

The 9 resource units that each candidate has at the 
beginning of the game are the maximum allowed. So 


there is no point in asking the computer to raise 
more funds (resources) until some of these units have 
been used up. However, when the computer does try 
to raise funds, it will yield a result of from 0 to 3 ad- 
ditional resource units. 

Let us say that the candidate chooses Command 
Number 6. The computer now asks the candidate for 
the name of a state, and then displays the political 
situation in that state. The number immediately 
following the name of a state represents the number 
of electoral votes that the state can cast for a 
presidential candidate. The candidate with the 
highest total of political points in a state (the combin- 
ed points for Media Exposure, Personal Campaign- 
ing, Domestic Issues, and International Issues) will 
win all of that state’s electoral votes at the end of the 
game. 

The candidate can affect the political situation in 
any state by committing some resource units to that 
state. When resources are committed, they have a 
multiplier effect on the category to which they are 
committed. For example, if the strength of Media 
Exposure is a given state is 15, and if 3 resource 
units are then committed to that category in this 
state, the new Media Exposure strength in the state 
becomes 15 x 3, or 45. If a candidate commits more 
resources than the candidate has, this blunder 
automatically results in the election of the opponent. 

The fifty states, plus the District of Columbia 
(abbreviated D.C.), have 538 electoral votes in all. 
At the end of the game, the candidate with a majori- 
ty of these electoral votes (270 or more) wins the 


game. 
Readers who do not wish to spend their time co- 


pying the following program listing may spend $9 
for a copy of the program tape itself from MICRO- 
Ed, Inc., P.O.Box 24156, Minneapolis, Minnesota, 
55424. 


9 POKE59468,12 

10 PRINT"AY¥¥¥¥¥>>>>3>>>>COPYRIGHT 1980": 
PRINT" ¥>33>35>5>LMICRO-EDf, INC." 

12 PRINT" ¥33>35335>3P.0. BOX 24156" 

13 PRINT"$333333>>35MINNEAPOLIS, MINNESOTA + 
355424" 

30 NM=INT(RND(TI) *2) +1: IFNM=1THENN1 $="REPU 
=BLICAN":N2$="DEMOCRATIC" 

40 IFNM=2THENN1$="DEMOCRATIC" :N2$="REPUBLI 
=CAN" 

60 SPS=" a 

86 DIMSTS$(52),EL$(51),P%$(51),PP%(51), 
aM$ (51) ,MM3 (51) ,D8(51) ,DD% (51) 
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85 DIMTS(51),TT%(51),1%(51),11$(51) :R=9: 


aRR=9 : FORZ=1T02090:NEXTZ:TU=1 


198 PRINT"Ayyy" 
" KRKKKKKREKKEKKKKEKKEKERKRKEKEKKE 
ee You can count on 
163 PRINT"r>>>* Q#P a 
wae Pet Professor 
104 PRINT"r>>>*SLS$:S- HAT IN THE RING 5 = 
ae 7s * 
i eee f to help increase 
= * 
106 PRINT"¢>>>* A PRESIDENTIAL ELECTION 7 teaching effectiveness 
=GAME * 
197 PRINT"r>>>* a 
* 
108 PRINT" po 39 44k AAR RRR 
—RERE 
118 PRINT"r¥¥>>>READ PRINTED INSTRUCTIONS 3 
aFIRST." 
128 GOSUB196606 
130 FORZ=1T051:READSTS(Z) ,EL$(Z) :NEXTZ: 
AREADM$, P$,D$,1$ 
150 PRINT"Ar¥V¥V¥>>>>PREPARING POLITICAL 3 
aS ITUATION" 
200 FORZ=1T051:M$=INT(RND(TI) *19) +1 
207 M&(Z)=M%(Z) +MS 
219 P%=INT(RND(TI) *5)+1 
212 P&(Z)=P$(Z)+PS 
220 D&S=INT(RND(TI) *19)+1 
222 D&(Z)=D%(Z)+D% 
225 I$=INT(RND(TI) *5)+1 
227 1%(Z)=1$(Z)+I% 
235 MMS=INT(RND(TI) *19) +1 
237 MMS (Z)=MM%(Z)+MMS 
240 PPS=INT(RND(TI) *5) +1 
242 PP%$(Z)=PP%(Z)+PPS 
245 DDS=INT(RND(TI) *19) +1 
247 DD%(Z)=DD%(Z) +DDS 
250 II$=INT(RND(TI) *5)+1 
252 II$(Z)=1I%(Z)+11% * ‘ 
260 TS(Z)=MS (Z)+P%(Z)+D%(Z) +18 (2) It reteaches the 4 basic arith- 
265 TTS (Z)=MM%(Z)+PP%(Z)+DD%(Z)+IIS(Z): metic operations step-by-step. 
aNEXTZ 
280 K=9:T1=0:T2=0 PET PROFESSOR includes 71 programs that 
285 IFY1+Y2=20THENTU=19 :GOTO4069 reteach the four fundamental arithmetic opera- 
298 IFC=2THENC=0 tions for whole numbers, fractions and decimals 
300 C=C+1:IFC=1THENPRINT"Ar";N1$:Y1=Y1+1 by providing more than just practice drills. Each 
319 IFC=2THENPRINT"fx";N2$:¥2=Y2+1 program includes a complete tutorial sequence 
315 TN=TN+1: IFTN=3THENTU=TU+1: TN=1 that takes a problem apart, then leads the student 
328 PRINT"rCANDIDATE'S TURN NO.";TU: step-by-step through solving it. 
>PRINT"r (CHOOSE NUMBER BELOW) " » Each program covers a single objective to 
325 PRINT " EEEEEEEEEEEEEEEEEEEEEEEEEEE EEEEEEEEEEREEEEREEEEER’: allow the teacher to select the skill to be rein- 
Reomeee EUNDS: (INCREASE 4 forced. It states the objective, supplies vocabulary, 
a a ispl xample, then leads the student step- 
ae See eee ee ee ae es Ey se pthraguerenacmple: When (he 
appape " ‘i ss student is ready, a quiz requiring writing is given, 
s 3e then scored by the computer. Every program has 
346 PRINT"yr3f LIST THE STATES IN WHICH 7 
STHE": PRINT"¥33";N2S;" CANDIDATE + been carefully selected. All problems were written 
LEADS." by teachers and tested in classrooms. 
345 PRINT"yr4f LIST CURRENT ELECTORAL 7 Use PET PROFESSOR to supplement class- 
=COUNT FOR":PRINT"¥>>EACH CANDIDATE." room instruction in individualized or traditional 
350 PRINT"yx5f LIST CANDIDATES' REMAINING 7 programs. Available for PET 2001 Series. Will 
aRESOURCES." run within 8K on any PET. 
355 PRINT"V¥x6f GET READY TO DISPLAY - = 
aSITUATION": PRINT"¥>>FOR A CERTAIN 7 - de ay camped ley ak ee) 
aSTATE." a - 
357 GETGS: IFGS<>""THEN357 @ Decimals—21 programs @ $125.00 
360 GETGS: IFVAL(G$) <1ORVAL (GS) >6THEN3 65 Buy all 3 for $399.00. Save $56.00! 
365 IFGS="1"THEN1OG9 Send $5.00 for more info, sample tape & shipping 
370 IFGS="2"THEN2909 (deducted from total purchase). 
375 IFG$="3"THEN3900 List of other educational programs available on request. 
3806 IFGS="4"THEN4969 
385 IFGS$="5"THEN5 O00 Melad Associates, Inc. 
390 IFGS="6"THEN6660 P.O. Box 159, Milltown, N.J. 08850 * (201) 828-3682 
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1969 PRINT"h":NR=INT(RND(TI) *4) 6330 IFGS="N"THEN15@ 
1017 IFC=1THENR1=R:R=R+NR 6335 PRINTPL$:PRINTSP$ 
1920 IFC=2THENR2=RR:RR=RR+NR 6350 PRINTPL$:PRINT"TO WHICH CATEGORY? - 
1039 IFR>9THENR=9:NR=R-R1 3a(xM>P>D>fOR rIf)" 
1035 IFRR>9THENRR=9 : NR=RR-R2 6360 GETCS: IFC$<>"M"ANDCS$<>"P"ANDCS$<>"D"AN 
1040 PRINT"r¥VVVINCREASE IN YOUR RESOURCE 7 aDCS$<>"I"THEN6 368 
aUNITS:£";NR 6365 PRINTPL$:PRINTSPS 
1066 GOSUB19600:GOT0150 6376 PRINTPL$:PRINT"HOW MANY? (xlf TO 7 
2000 PRINT"f";N1$;" CANDIDATE LEADS:y¥": arg9f)" 
aFORZ=1T051 6380 GETRS$: IFVAL(RS$) <1THEN6389 
2020 IFTS(Z) >TTS(Z) THENPRINT"Z";ST$(Z) ;ELS 6490 IFC=1THENR=R-VAL (R$) 
a(Z) :CT=CT+1 6419 IFR<OTHEN8000 
2036 IFCT=26THENGOSUB19690:CT=0:PRINT"A" 6428 IFC=2THENRR=RR-VAL (RS) 
2640 NEXTZ 6436 IFRR<OTHEN8560 
2058 CT=9:GOSUB19609:GOTO159 6456 IFC=2THEN6760 
3000 PRINT"h";N2$;" CANDIDATE LEADS:¥": 6500 IFCS="M"THENMS (K) =M%(K) *VAL(RS 
aFORZ=1T051 6516 IFCS="P"THENP$ (K) =P% (K) *VAL(RS) 
3020 IFTS$(Z)<TTS(Z) THENPRINT"Z";ST$(Z) ; ELS 6520 IFCS$="D"THEND$ (K) =D% (K) *VAL(RS$) 
a(Z) :CT=CT+1 6530 IFCS$="I"THENI$ (K) =13(K) *VAL(RS$) 
3036 IFCT=20THENGOSUB19609:CT=G:PRINT"A" 6558 GOTO15D 
3040 NEXTZ 6700 IFCS="M"THENMM$ (K) =MM% (K) *VAL(R$) 
39058 CT=G:GOSUB19006 :GOTO159 6719 IFCS="P"THENPP$ (K)=PP%(K) *VAL(RS$ 
4969 PRINT"A":FORZ=1T051 6728 IFCS$="D"THENDD$ (K) =DD% (K) *VAL(RS$) 
4020 IFT$(Z) >TTS(Z) THENT1=T1+EL$ (2) 6730 IFCS="I"THENII$ (K) =II%(K) *VAL(R$) 
4925 IFT$(Z)<TT%(Z) THENT2=T2+EL$ (2) 6759 GOTO159 
4030 NEXTZ 7008 DATA ALABAMA,9,ALASKA,3,ARIZONA,6, 
4932 IFY1+Y2<>26THEN4046 ARKANSAS , 6 
4935 IFTU=1GANDT1>T2THENPRINT"Avvx";N1$; "> 7018 DATA CALIFORNIA, 45,COLORADO,7, 
ACANDIDATE WINS!!":END aCONNECTICUT, 8 
4037 IFTU=19ANDT1<T2THENPRINT"Ayvx";N2$; "> 7626 DATA DELAWARE,3,D.C.,3 
ACANDIDATE WINS!!":END 7930 DATA FLORIDA,17,GEORGIA,12,HAWAII,4 
4040 PRINT"r¥";N1$:PRINT"YCURRENT 7 7058 DATA IDAHO,4,ILLINOIS,26, INDIANA, 13, 
ELECTORAL COUNT: ";T1 IOWA, 8 
4050 PRINT"ryvy";N2$:PRINT"YCURRENT 7 7069 DATA KANSAS,7,KENTUCKY,9 
nELECTORAL COUNT: ";T2 7078 DATA LOUISIANA, 19 
4069 PRINT"y¥":GOSUB19996:GOTO159 7086 DATA MAINE,4,MARYLAND,16,MASSACHUSETT 
5006 PRINT"Ay";N1$;" RESOURCES:" 3S,14,MICHIGAN, 21,MINNESOTA, 19 
aPRINT"¥¥";N2$;" RESOURCES: 7098 DATA MISSOURI,12,MISSISSIPPI,7, 
5010 PRINT"Y¥¥":GOSUB19699:GOTO159 =MONTANA, 4 
6000 PRINT"AWHICH STATE DO YOU WANT"; 7109 DATA NEBRASKA,5,NEVADA,3,NEW - 
6029 INPUT">>2<<<";STS aHAMPSHIRE,4,NEW JERSEY,17,NEW 7 
6639 IFSTS="2"THEN6G08 MEXICO, 4 
6046 K=K+1l 7116 DATA NEW YORK,41,NORTH CAROLINA,13, 
6058 IFSTS(K)=STSTHEN6976 =NORTH DAKOTA,3 
6060 IFK>51THENK=0:PRINT"YVYNO SUCH STATE. + 7120 DATA OHIO,25,OKLAHOMA,8,OREGON, 6 
aTRY AGAIN. ¥¥":GOTO6629 7139 DATA PENNSYLVANIA, 27 
6065 GOTO6G46 7146 DATA RHODE ISLAND, 4 
6076 PRINT"A" 7158 DATA SOUTH CAROLINA,8,SOUTH DAKOTA, 4 
6088 PRINT"c";N1$ 7169 DATA TENNESSEE,19,TEXAS, 26 
6985 PRINT"YSITUATION IN" 7176 DATA UTAH,4 
6090 PRINT"ry";STS$;EL% (K) 7188 DATA VIRGINIA,12,VERMONT,3 
6106 PRINT" EEEEEEEEEEEEEEEEE 7196 DATA WASHINGTON,9,WEST VIRGINIA,6, 
6116 PRINTMS$;M$(K) :PRINT"y";PS$;P%(K): =WISCONSIN,11,WYOMING,3 
aPRINT"y¥";D$;D% (K) :PRINT"¥"; 1$;1%(K) 7206 DATA "XcMfEDIAY<<<<<EXPOSURE..... a, 
6128 TPS="rV¥YTOTAL POINTS " a" PfERSONALY<<<<<<<<CAMPAIGNING.." 
6125 PRINTTPS;"£";TS(K) 7205 DATA "LDFOMESTICY<<<<<<<<ISSUES...... 
6176 PRINT"h":PRINTTAB (26) ;"1";N2$: a." 
aPRINTTAB (20) ;"¥SITUATION IN": 7210 DATA ";IfNTERNATIONALY<<<<<<<<<<<<<IS 
APRINTTAB (29) ; ASUES § ésjeracaia™ 
6199 PRINT"ry¥";ST$;EL% (K) 8000 PRINT"Arv¥¥v¥>>>SORRY. YOU HAVE 7 
6195 PRINTTAB (29) ; sOVER-COMMITTED YOUR" 
6200 PRINT" 8010 PRINT"rVRESOURCES. THE ";N2$;" 7 
6205 PRINTTAB (26) ;MS;MM$% (K) sCANDIDATE WINS" 
6216 PRINTTAB (20) ;"¥";PS; PPS (K) 8620 PRINT" Vy>>>>>>>>>>LEND>OF>GAME": END 
6226 PRINTTAB (20) ;"¥";D$;DD% (K) 8500 PRINT"ArvV¥>>>SORRY. YOU HAVE 7 
6230 PRINTTAB(2G) ;"w";IS;1I8(K) 3OVER-COMMITTED YOUR" 
6232 PRINTTAB (2D) ; 8510 PRINT"rYRESOURCES. THE ";N1S;" 3 
6235 PRINTTPS;"£"; TTS (K) >CANDIDATE WINS" 
6308 PLS= Sea ara khatd See NNT 8520 PRINT"¥y¥>>9>>>>>>>LEND>OF>GAME": END 
6305 PRINTPLS 19600 PRINT"¥>>>>>PRESS rSPACE>BARE TO 7 
6310 PRINT"WILL YOU COMMIT RESOURCES? - >CONTINUE" 
a(x¥f OR xNf)" 19916 GETGS:IFG$<>" "THEN19016 
19620 RETURN © 


GETGS: IFGS<>"Y"ANDG$<>"N"THEN6326 
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SOLAR SCREEN 


We urge you to read this and consider our PLEXI- 
VUE High Contrast SOLAR SCREEN. You will 
see it is a small price to pay for a big improvement! 
Some consider it as an Rx for tired eyes! As you will 
see from our offers, you can even get one FREE! 
CONTRAST ENHANCEMENT 
IS IT FOR YOU? 


We have all experienced the eyestrain acquired 
from sitting in front of the computer for too many 
hours playing games or working. That is now a 
thing of the past due to recent developments in the 
area of CONTRAST ENHANCEMENT. First, 
the construction of most home computers is such 
that generally the CRT screens are of a phosphor 
light gray in color, which makes it difficult to 
distinguish between the white letters and gray 
background. The former method was to turn the 
CRT brightness up which increased contrast but 
also increased GLARE. This is where the 
eyestrain comes in. What you need is something 
that will INCREASE the CONTRAST while 
DECREASING the GLARE. Several products on 
the market will accomplish this but to different 
degrees of success and a drastic difference in cost, 
as you will see. 
OUR PRODUCT 

We produce the PLEXI-VUE High Contrast 
SOLAR Screen from General Electric LEXAN 
which is unbreakable. It is neutral in color and will 
work with all phosphor screens including green. 
This SOLAR LEXAN is a sixteenth of an inch 
thick and mounts to your computer within a 
minute after you receive it. You do not need tools 
of any kind. you just strip off the masking from 
the foam adhesive and apply the unit to the front 
of the computer! Then you are ready to enjoy the 
DRAMATIC difference in viewing WHITE let- 
ters ona BLACK screen. Or if you havea GREEN 
phosphor screen you will see GREEN letters con- 
trasted against BLACK as you doon the expensive 
WANG and IBM computers! You will also notice 
that long periods of activity at the computer will 
not bring on the resultant eyestrain that normally 
accompanies GLARE. You’ve been driving into 
the sun and noticed the difference when you put 
on a pair of polarizing sunglasses; this is the kind 
of change you will see by installing PLEXI-VUE! 


SATISFIED USERS! 
We have been producing and selling the PLEXI- 
VUE for about a year and a half and have quite a 
following among users. We have sold to a large 
number of Colleges, Universities, Schools, 
Lawyers, C.P.A.’s, Doctors, Hospitals and 
Laboratories. We know they are pleased because 
they immediately re-order more PLEXI-VUEs for 
other computers. Testimonials from users range 
from, “AMAZING!” to “‘. . . really like it, enter 
my order for another!"’ Don’t take our word for 
it, ask somebody who owns one! 

THE COMPETITION 
The SUN-FLEX Optical Filter at $20.00 for the 
smallest version, consists of a fine screening 
material with a plastic border. It increases con- 
trast but creates a moire effect on the screen if 
your program has animation. It will also bother 
you if you have any degree of astigmatism. You 
can blow through the fine screening material, and 
have to be very careful not to damage it. 
The POLAROID CP-70 Polarization Filter also 
increases contrast and decreases glare. It costs 
from $26.00 for a formed plastic filter or from 
$68.00 for laminated glass versions. Brackets are 
provided for mounting. 
The GLARE-GUARD by Optical Coating 
Laboratory sells for $95 for certain computers only. 
It is a very high quality circular polarization material 
laminated between two pieces of reflection cancelling 
coated glass. It’s thick and heavy, and requires 
special mounting. Used in some expensive terminals. 
Material can be purchased for custom fabrication for 
small computers. As with the SUN-FLEX AND 
POLAROID versions the screens look ‘‘added on” 
due to the way they are mounted. 
SOME OTHER COMPANIES PRODUCE A 
MYLAR FILM THAT YOU WET AND APPLY 
TO THECRT TO DARKEN THE SCREEN. WE 
WILL NOT MENTION THEM ANY FUR- 
THER THAN TO SAY THEY AREA RIP-OFF! 

DRAWBACKS 


We, like other manufacturers of contrast enhance- 
ment devices do not recommend their use if you in- 
tend to use a light pen. Since the screens cut 
GLARE, they also reduce light intensity which is 
needed by the photocell in the pen. Our screen 
works with some pens, but we would rather caution 
you than disappoint you after you purchased it. 


PLEXI — VUE" 
SOLAR SCREEN 


DRAMATIC IMPROVEMENT? 


YOU BE THE JUDGE! 


FREE TRIAL OFFER 

We urge you to test the PLEXI-VUE Screen now. 
Order one for our 30-day no obligation trial. See 
the dramatic difference it makes on your com- 
puter. See how much easier it is to read text with 
the higher contrast, and how much more you en- 
joy your computer. Your friends will notice the 
new appearance as the above photos show. We 
can make this offer because we have a QUALITY 
PRODUCT, ata REASONABLE PRICE that we 
feel will meet with your approval, if you will GIVE 
ITATRY! 

After you have used it, decide if you want to keep 
it. If you do you’ll own the most affordable con- 
trast enhancement device on the market. If forany 
reason you’re not completely satisfied, simply 
return your screen with-in 30 days for a prompt 
and courteous refund. You can’t lose! 

To order your PLEXI-VUE for our free trial, 
simply send your personal check or money order 
for $14.95 + $1.00 Shipping. We accept 
MASTERCHARGE or VISA! Give ACCOUNT 
NUMBER, INTERBANK NUMBER, EXPIRA- 
TION DATE, AND SIGN your order. Give 
Model Number needed from CHART: 


PXI = PETs/CBMs with METAL CRT Cases. 
PX2 = PETs/CBMs with PLASTIC CRT Cases. 
PX3 = NEW 80 Character CRT CBMs. 

* *& FREE PLEXI-VUE! * * 


Order a SOFTPAC-1 at the Regular price of $34.95 
+ $1.00 Shipping and we’ll GIVE you the PLEXI- 
VUE FREE! The 30 day TRIAL OFFER applies to 
both! (You must return BOTH for a refund.) 
SOFTPAC-1 contains 17 programs on DISC or 
TAPE (SPECIFY) in a Notebook with Back-up 
copies, printed instructions & program listings! 
GAMES W/SOUND too! 


ORDER FROM: 


COMPETITIVE 
SOFTWARE 


21650 Maple Glen Drive 
Edwardsburg, MI 49112 


i] 
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THE FIRST 
ANNUAL 
OMPUTER 


must be in place, techniques studied and reviewed, 
some of the simple algorithms FOR-NEXT loops, 
IF-THEN, logic statements AND, OR, NOT must 


be ready tools, used without hesitation. 


Organization 

The idea of a contest appealed to the experienced 
computer teachers in our areas who responded to a 
phone call sampling 15 schools known to have 


microcomputers, or terminals accessing a mainframe. 


M A mailing for organization went out three months 
before the expected contest date. Six teachers and 


CONTEST 


(of Herkimer, NY) 


E.Q Carr 

Planetarium Director 
Herkimer BOCES Planetarium 
Herkimer, NY 13350 


They came from 40 miles away. Some brought their 
own PET’s with large keyboards because they 
wanted no part of our little keyboards. The lone Ap- 
ple II arrived and fortunately we had planned a se- 
cond one for them. These kids were confident, a big 
short of cocky, quite determined and planned to win 
a timed problem solving contest. Three-and-a-half 
hours later they left, confident, determined to win 
the next contest, perhaps in college. 

And during that time, the 31 contestants did 
warm-up exercises, engaged in a two problem con- 
test, polished off 90 hamburgers, listened en- 
thusiastically to lectures on Fortran and a slide 
shown on the history of digital computer technology, 
received their prizes and visited a minimicrocom- 
puter faire set up by local computer vendors. The ac- 
tual time schedule appears in Table I. 


at 


Why Programming Contests 
I do not know of research which indicates the mind 
increases its power and capacity by competition. It is 
obvious however, that a system of proper instruction 
and training with competition produces desirable 
results. The programs for the athletically apt are a 
paradigm worthy of imitating. Athletics produces 
very little in the export market to aid in the balance 
of payments however. But computer technology and 
software has income value to the country in terms of 
billions of dollars over a long period of time. 
Moreover, discipline, challenge and association 
with peers n a competition is a tool for self- 
calibration. Then, there is the exhilaration of stret- 
ching to the limit of one’s inherent capabilities. In a 
contest, the kids grow in stature and self-esteem, and 
that’s obvious from even a cursory observation. 
The practice and training for competition is, of 
course, the most valuable part of it all. All the basics 


two community college students attended that first 
meeting. They were the nucleus for sample problems 
demonstrating the potential skill of contestants. A 
member of this group decided there should be pri 
for the winners and undertook getting contributions. 
The college students offered to generate a range of 
problems for the contest. The residue of tasks con- 
sisted of the physical facilities, speakers, publicity, 
registration, the mini 
respondence, refreshments, contest rules, judging, 
selecting a final date, arranging computers and con- 
tacting suppliers for literature. 
Of course, we had two months for all that. 


ire organization, cor- 


Registration 


With a date selected, a Saturday in April, there was 
a hope that there would be no student events in con- 
flict. It proved an unfortunate choice. We lost a 
number of local schools’ contestants to a track meet. 
Which may demor 
of a number of kids involved. They are also athletes. 
Within a week, all but 2 teams had sent the registra- 
tion forms, and the final pre-contest registration was 
32 students. 

Sudden Death 

The committee agreed that contestants would be paired 
as teams. There were several reasons, but fundamen- 
tally, the purpose was to assure that the maximum 


trate something about the nature 


September/October, 1980. Issue 6 


COMPUTE! 47 


Bus (GP1g) 
PET and the 
IEEE 488 Bus 


(GPIB) 
by E, Fisher and 
C.W. Jensen 


MYON PNET CW. Sensen 


This is the only complete guide available on 
interfacing PET to GPIB. Learn how to program 
the PET interface to control power supplies, 
signal sources, signal analyzers and other 
instruments. It’s full of practical information, as 
‘one of its authors assisted in the original design 
of the PET GPIB interface. 

431-4 $15.00 


NEW PET 
edition 


Some Common 


BASIC Programs 
by L. Poole, M. Borchers, 
C. Donahue 


76 Programs you can use even if you don’t 
know BASIC. This book gives you a variety of 
math power including personal finance, taxes 
and statistics as well as other programs you'll 
want like Recipe Cost and Check Writer. All 
programs can be run ona PET or CBM with 8K 
or more 2 

\ #40-3 $12.50 
4 


PET owners can purchase the programs ready- 
to-run on cassette or disk. Use the book as a 
manual for operating instructions and 
Programming options. 
Disk #33-0 $22.50 
Cassette #25-X $15.00 


Practical BASIC Programs 


ed. Lon Poole 


These are 40 easy to use programs that 
each do something useful. 


Income averaging, checkbook reconciliation, 
statistics, factorials, temperature conversion 
and musical transposition are just a few. It offers 
a wealth of practical computing power. Includes 
write-ups, program notes and instructional 
examples to help you realize the potential uses 
of each program. 

#38-1 $15.00 


6502 

Assembly Language 
Programming 

by L. Leventhal 


Increase the capabilities and performance of 

PET (and other 6502-based computers) by 

learning to program in assembly language. 
#27-6 $12.50 


New for your PET 


from 
(71 \osBoRNE/McGraw-Hill 


PET Personal Computer Guide 
by C. Donahue and J. Enger 


Everything you always wanted to know about 
PET/CBM computers ... 
but don’t. 


This book is a step-by- 
step guide to the PET 
computer. 


Assuming no prior 
knowledge of 
computers this 
PET guide contains 
a wealth of 
information 

that you'll need 

in training your 
PET to perform. 


430-6 $15.00 


sinthe US (allow 3-4 waks) Phone: 
he US lallow 10 days 


= en ; eaeet Tt US ci 


-r--------------------- —— 
27-6 6502 Assembiy Language Programming $1250 OSBORNE/McGraw-Hill (06 
I 
I Par [ 630 Bancroft Way, Dept. G3 
I ae Berkeley, California 94710 
i | a (415) 548-2805 - TWX 910-366-7277 
pooni] $1250 
' Se | ae 
I ommon BASIC Programs PET Disk | $2250 | 
I - Address 
os 
| rine State zip 
I Total Amount Enclosed 
| 
i] 
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number of teams possible complete the problems, 
and to permit more students to participate. It was 
expected that the less confident students would be 
supported and decide to enter. 

The sudden death aspects of a single problem 
contest prompted a two problem contest based on a 
winning team with the minimum accumulated solu- 
tion time. Students were cautioned that while the 
contest was a timed power test, it was the first cor- 
rect solution that drew a time mark. Incorrect 
answers meant a maximum time, that is, 20 minutes 
allotted to each problem, 


The Mini-Microfaire 


All four of our local computer stores agreed to par- 
ticipate. So did four local colleges and two large com- 
puter manufacturers’ representatives. One of the 
vendors volunteered to contribute to the prizes. 
There was no charge for vendors. 

How the Contest Worked 

About a third of the contestants arrived early, as did 
all the Faire vendors who participated. Two vendors 
and two college representatives failed to show 
however. The half hour ‘‘warm-up’’ period at the 
start is a “‘set-up period’’. Suill, it was 
interesting to see kids set up their own exercises on 
the machines. One brought a memory test tape and 
nearly created a panic when he elaborated it would 
take 15 minutes to fully check the machine’s 
memory, and how sorry he was no one else could be 
sure their computer was working. Another set up 
beautiful graphics of animated rain clouds that 
moved across the screen. Each team was moving in 
different and original patterns that reinforced con- 
fidence. This alone was an exciting phase of the con- 
test for an observer. 

One of the teachers had taken on the task of 
Contest Commissioner whose function was to run the 
actual programming contest. He distributed the test 
problems, face down to each of the 15 computer sta- 
tions and on a signal, the student hit RETURN, 
starting the PET’s internal clock. He supervised the 
master clock and acted as the referee of referees. 

Referees were the teachers and sponsors of the 
contestants. They responded to the students who in- 
dicated they had solved the contest problem. 
Referees determined whether a solution within the 
question statement and rules had actually been 
achieved. 

Analysis of Contest Problem Results 

The first problem was selected to have a solution in 
approximately 12 single statement lines for an 
average student and a solution time of 5 minutes. 
The second problem was judged to be of greater dif- 
ficulty. The questions, possible solution and re- 
quirements are given in Table I. The scoring times 
are plotted in Table III for each problem. I believe 
the data indicates a wide range in student skills. 


more correct 


There may be other implications as well, but the 
paucity of data precludes generalizations. 

The problems however met several contest 
design goals that included maintaining student con- 
fidence by permitting every student to complete the 
first problem. The first problem assumed fast 
students would complete the problem in 5 minutes or 
less. The second problem was designed for approx- 
imately a 10 minute solution time. These goals were 
met. 


Reprise 


The contest was an exciting event for students, ven- 
dors and teachers alike. The lessons we learned will 
make it a better contest for the kids. Indeed the Con- 
test Committee is already at work! 


Hy mt 


| 


FIRST ANNUAL COMPUTER PROGRAMMING CONTEST 
(of Herkimer, NY) 


CONTEST RULES (1980) 
1. A maximum of twenty (20) teams can be accommodated on a First Registered, First 


Served Basis. A maximum of three (3) teams, but to accommodate the greatest 
number of schools we may limit o school to two (2) teams. 


2. A Team consists of two (2) members. Each team will be given two (2) problems to 
solve, The winning team will have the lowest accumulated total time to problem 
solution. 

3. Solutions will be checked by Referees with data entry on spearate lines. Please 


use line numbers spaced by tens of units (10, 20, 30 ....). 


4, Contestants will have thirty (30) minutes beginning at 10 a.m. for familiarization 
with the PET 2001s. 


5. The programs are limited to the following list of BASIC statements, commands, ete. 
A. INPUT F, DIM K. ON PL TL TIS 
B. READ G. PRINT Ll. ON... GOTO Q. AND 
C. DATA H, GOTO M. GO SUB R. OR 
D, REM 1. IF... THEN N, RETURN: S. NOT 
E. LET J. FOR...NEXT ©. END 


NO OTHER COMMANDS WILL BE ALLOWED 


6. When you have reached solution and have checked it carefully, print ‘he statement 
PRINT TIS, hit RETURN and call a Referee. 
Remember, once you've hit RETURN, you can no longer change the progt im. 


Schools are encouraged to use local contests to select their teams 
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PROBLEM #1 


THE FOLLOWING SCHEDULE OF LICENSE FEES IS PROPOSED TO PERSUADE PEOPLE 
TO SAVE GASOLINE BY USING SMALLER ENGINES IN CARS. 


HORSEPOWER LICENSE FEE 
Up to 20 HP s 0 
‘More than 20 HP, but 40 HP or less $ 50 
More than 40 HP, but 60 HP or less $200 
More then 60 HP, but 80 HP or less S800 
More than 80 HP $10,000 


THE SOLUTION SHOULD BEGIN: 


1. Prompt an input of AUTO HP? 
2. Print on output such os THE LICENSE FEE IS $50 
3. Return to the original prompt. 


A POSSIBLE SOLUTION 


3 PRINT"3" 

10 INPUT"INPUT AUTO HORSE POUER™;P 
20 IF PX=20 THEN 200 

30 IF P<=40 THEN 300 

40 IF P<=60 THEN 400 

50 IF P<=B0 THEN 500 

60 IF P>8O THEN 500 

200 FeO 

210 GOTO 1000 

300 F250 

310 GOTO 1000 

400 F=200 

410 GOTO 1000 

500 F=800 

510 GOTO 1000 

600 #=10000 

1000 PRINT"LICENSE FEE IS $ 
1010 GETASIF AS="°THEN 1010 
1020 GoTo 3 


Solution Requirements: 


Equivalent of Lines 10, 1000, and 1020 are required. 
The equivalent of Line 3 is o tie breaker. 
Retum to Line 10 from 1020 is acceptable. 


“Tau 


PROBLEM #2 

WRITE A PROGRAM THAT WILL TAKE THE COORDINATES OF TWO POINTS IN A PLANE, 
COMPUTE THE DISTANCE BETWEEN THEM, GIVE THE COORDINATES OF THE MIDPOINT 
AND THE SLOPE OF THE LINE SEGMENT. THE PROGRAM SHOULD USE THE COORDINATES 
DESIGNATIONS SHOWN, 


DEFINITIONS FOR LINE OF COORDINATES X1, YI, X2, Y2 ARE: 


DISTANCE =, = omar 


MIDPOINT = X= X1+X2., Y= YI+¥2 

a eee 

-* 56 

SLOPE M= YI-Y2_ WHERE X1= X2 
=X 


(WHEN X1 = 2, SLOPE IS UNDEFINED) 


1. Use a READ X1, YI, X2, Y2 to stort. 
Leave lines 500 and 600 for referee data. 


2. The Program should print out: 
DISTANCE = 
MIDPOINT = 
SLOPE = (0, + M, Undefined) 

3. Use Data Lines for at least 3 coordinate sets 


containing an Undefined Slope, o Zero Slope 
and a Negative Slope. 


A POSSIBLE SOLUTION 


SOLUTION REQ JIREMENTS: 


10 READKN, 11,42, 12 
20 LET D2(((KV-X2) 20011-92072 65 
p 


1. Lines 30, 60 ond 90 or th 
equivalents are required 


30 PRINT*BISTANCE 
40 LET X=0x4+K21/2 
SO LET Y=(¥19¥2)/2 
60 PRINT*MIDFOINT: x= 
70 IFXY=X2 THEN 110 
80 LET M=(11-¥20/(11-92) 

90 PRINT“SLOPES "38 

100 GoTO10 

110 PRINT"X1=%2,SLOPE 18 NOT DEFINED" 
120 GoTOIO 

500 DATA3,5,7,8,-3,544)5473yb4 "34-8 
600 UATAI.6,7,1 


prTeiy 2. Referee must insert Date Lines 
500 ond 600 to get answers 


PROGRAMMING CONTEST 
RESULTS 


TEST PROBLEM *{ 
AVG 7.702 4.7 mit. 


ae 

az? 

ww? 

SS 

2re 

ato 34567 HE DOH 2 5 - 
SULUTION TIME- MINUTES 

— TEST PROBLEM *2 

ar ae AVG 12.19 2.23 ran, 

Woy 

D827 

BS 

7th o_o 


67 8 90 Hf Lob swan 
SOLUTION TIME -MINUTES 


TABLE IL 


(o}} 
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THE STAR MODEM 


From Livermore Data Systems 


The STAR modem from Livermore represents a 
significant breakthrough in the development of 
acoustic modems. The small, lightweight case 
houses a high-performance modem that competes 
with the highest quality standard-sized couplers 
available. Yet, because of its costs effective design, 
the STAR has become the price/performance leader 
in the industry. 

CIRCUITRY 

The switchable, four-section bandpass filter provides 
the user with excellent out-of-band rejection to 
assure accurate processing of the received car- 
rier, even at signal levels of less than -47 dBm. 
Further, the proven soft limiter and phase lock 
loop discriminator yields data that is essentially 
jitter free. 

The oscillator is built using highly stable, state- 
variable circuitry that delivers a nearly harmonic 
free, phase coherent sine wave to the telephone 
network, assuring compatibility with all other 
103 type modems. Because of the pureness of the 
sine wave, the STAR modem exceeds even the 
stringent harmonic requirements of all CCITT 
countries. 


6502 

6502A 0 10 195 § 2 69 
6520PIA 5 c 49 445 100@ 415 
6522VIA 6.90 10 @ 650 50 @ 610 100 @ 570 
6532. 790 10 «© 740 50 700 100 660 
2114-1450 465 20 435 100 « 415 
2114-1300 595 21 545 100 « 510 
2716 EPROM 2100 900 10 © 1700 


S-100 Wire Wrap Solder Tail 


CASSETTES—AGFA PE-611 PREMIUM 
High ou! Ww noise. 5 screw housing 
C-10 10/565 50/2500 100/4800 
C-20 10/645 50/2950 100/57 00 
C-30 10/73 4.00 100/66 

All other lengins available 


AM tani 800 special $799 
ATARI Alt Atari Modules 20% OFF 


DISKS 


for quantity prices) 


labels 


(write 


SCOTCH (3M) 8 
SCOTCH (3M) 5 
Maxell 5 

Maxell 8” Double Dens 
Verbatim 5 

BASF 5S" 

BASF 8 

Diskette Storage Pages 
Disk Library Cases 8 


115 E. Stump Road 


10/310 50/285 
10/315 50/295 
10/365 50/340 
10/410 50/3.95 
10/240 50/235 
10/245 20/235 100/230 
10/250 20/245 100/235 

10 for 395 
2.85) (5° = 216 


100/275 
100/285 
100/315 
100/3 80 
100/230 


Montgomerwville,PA18936 215-699-5826 


o& IEEE 488 MODEM 
SALE $ 


RS232 MODEM 
SALE $139 


CARRIER DETECT 

To assure accurate teleprocessing connections, 
the carrier detect circuitry prevents the modem 
from attempting to operate when excessive noise 
would produce errors or cause marginal operation. 
The circuitry also has a special amplitude sensor 
that prevents chatter when the received signal 
fades. 


EXCLUSIVE ACOUSTIC CHAMBERS 

The exclusive triple seal of Livermore's new flat 
mounted cups locks the handset into the acoustic 
chamber yielding superior acoustic isolation and 
mechanical cushioning. Designed to adapt to most 
common handsets used throughout the world (also 
fits GTE handsets), the STAR offers the utmost in 
flexibility and transmission reliability. 


SELF TEST 

The self test feature on the STAR allows the user to 
verify total operation of the acoustic modem by 
using the terminal in the full duplex mode. No need 
for remote assistance in diagnosing terminal or 
modem products. 


Commodore CBM- 
PET SPECIALS 


-Up to $235 free 
merchandise 
with purchase of one of / 
following CBM-PET 


CBM V Voi 
8N full s 
16K Full Size Graphics or Business Keyboard 
32K Full Size Graphics or Business Keyboard 
2040 Dual Drive-343,000 bytes 
2022 Tractor Printer 
ig d Printer 


50 
795 100 
995 145 
1295 205 
1295 205 
795 100 
695 90 
( assette Deck 95 12 
Used PETs (limited quantities) Call 


**** EDUCATIONAL DISCOUNTS **"* 
Buy 2 computers, get 1 FREE 


VISICALC for PET (CBM/Ps $128 


89 
270 


Size Graphics Keyboard 
WordPro I-for 8K PET 
WordPro I-16 or 32K, 2040, Printer 
WordPro III-32K, 2040, Printer 
WordPro IV for 8032 
PASCAL Compiler for P 


Programmers Toolkit-PET ROM Unies 
PET Spacemaker Switch 

Dust Cover for PET 

IEEE-Parallel Printer Intertace for PET 
IEEE-RS232 Printer Interface for PET 


A B Computers 


Utilizing the experience gained from building high 
quality couplers for over twelve years. Livermore 
has designed a coupler superior to any it its class for 
Cost efficiency in industrial, commercial, business or 
home situations. You can see why we call it the 
STAR! 


SPECIFICATIONS 
Data Rate. 0 to 300 baud. 

Compatibility. Bell 103 and 113; CCITT. 
Transmit Frequencies.* Originate — 1070 Hz/Space, 
1270 Hz/Mark; Answer — 2025 Hz/Space, 2225 
H2/Mark. 
Receive Frequencies.* Originate - 2025 Hz/Space, 
2225 H2/Mark; Answer — 1070 H2/Space, 1270 
H2/Mark. 
Frequency Stability. +0.3 percent. 
Receiver Sensitivity. -50 dBm ON, -53 dBm OFF. 
Transmit Level. -15 dBm. 
Modulation. Frequency shift keyed (FSK) 
Carrier Detect Delay. 1.2 seconds ON; 120 msec OFF. 
EIA Terminal Interface. Compatible with RS 232 
specifications 
Interface. IEEE 488. 
Optional Interfaces. 20 ma; 
*International (CCITT) frequencies available, 
Switches. Originate/Of/Answer, Full Duplex/Test/ 
Half Duplex. 
Indicators. Transmit Data, Receive Data, Carrier 
Ready, Test. 
Environmental. Ambient operating temperature 5°C. 
to 50°C. Relative humidity 10 to 90 percent (non- 
condensing). 
Power. Supplied by 24 VAC/150 MA UL/CSA listed 
wall-mount transformer. Input 115 VAC, 2.5 watts 
(220 VAC, 50 Hz adaptor available on request) 
Dimensions. 10” x 4” x 2” 
Weight 1.7 Ibs. (2.2 Ibs. shipping weight including 
AC adaptor.) 
Warranty. Two years on parts and labor. 


Centronics 737 » 
NEC Spir 


onal Spacing Printer 


SYM-1 with 4K RAM 
SYM BAS-1 BASIC in ROM 

SYM RAE-1/2 Asse prin ROM 
MDT 1000 Syner 


$209 


RAM-KIM. SYM, AIM 
M kit SALE 
Video 100 12° Monitor 


219 Terminal (factory asm ) 


SPECIAL 
MICROTHELLO {¢ 


PET Word Processc 829 95 


y Michael Riley 


Programming the 6502 ( 
Applications Book (Zaks) 
Programming a Microcomputer 6502 
6502 Software Bookbook (Scelt) 

WRITE FOR CATALOG 


Add $1.25 per order for shipping. We pay balance 
of UPS surface charges on all prepaid/orders. 
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PAPER-MATE BET YOU CAN'T BEAT IT! 


baer ra MICROTHELLO 
PROCESSOR by Mike Riley 


There are five levels of play in this PET 
machine language program. Level four is for 
experts only and is designed for tournament 
level play. So far no one has been able to beat 
level four Level five takes several minutes to 
move and Is used tor exhaustive analysis of 
specific moves. 

There are several features to help in the 
analysis of a game. Any position on the board 
can be recalled and replayed. Both the level of 
aifficulty and the position of the pieces can be 
changed at any time. You can play against the 
machine, against another person, or watch 
the machine play itself, You and the machine 
can switch sides during the game. Moves are 
selected with the cursor rather than by 
coordinates For all PETS: $9.95 


Paper-Mate Is a full-featured word processor 
for $29.00 by Michael Riley Paper-Mate incor 
porates 60 commands to give you full screen 
editing with graphics for all 16k or 32K PETs, all 
printers, and disk or tape drives. It also includes 
most features of the CBM WordPro Ill. plus many 
additional features 

For writing text, Paper-Mate has a definable 
keyboard so you can use either Business or 
Graphics machines. Shift lock on letters only, or 
use keyboard shift lock All keys repeat 

Paper-Mate text editing includes floating cur- 
sor, scroll up or down, page forward or back, and 
fepeating insert and delete keys Text Block 
handling includes transter. delete, append, save 
load, and insert 

All formatting commands are imbedded in text 
for complete control! Commands include margin 
Control and release. column adjust. 9 tab settings, 
variable line spacing, justify text, center text. and 
auto print form letter (variable block) Files can be 
linked so that one command prints an entire 
manuscript Auto page. page headers, page 
numbers, pause at end of page, and hyphenation 
pauses are included 

Unlike most word processors. PET graphics as 
well as text can be used Paper-Mate can send 
any ASC11 code over any secondary address to 
any printer 

Paper-Mate works on 16K ot 32K PETs with 
iny ROM. cassette or disk. and CBM or non 
CBM printers An 8K version is in the planning 

To order Paper-Mate. specify machine and 
ROM type 


On Tape (with manual) $29.95 


tphp? é $i 


FOUR PART HARMONY FOR THE PET 


A-B Computers announces a combination system consisting of the 
KL-4M DAC Board and the Visible Music Monitor for Commodore PET- 
CBM computers. The package enables PET users to easily create and 
play musical compositions of up to 4 parts 

The KL-4M Board includes an 8-bit Digital to Analog Converter, alow 
pass filter to eliminate high frequency computer generated hiss, and an 
on-board audio amplifier. An RCA-type jack is also included for quick 
attachment of your speaker, Amplification of the 6522 CB2 generated 
single note sound is incorporated as well, so that no additional hardware 
(other than a speaker) 1s required. Connection 1s made via the parallel 
and cassette ports. Both ports are extended with duplicate connectors 
(with keyways) so 1/0 capabilities are not reduced in any way. Board 
orientation is parallel to the back of the PET so additional table space is 
not required. The KL-4M is compatible with any of the 4 part music 
monitors, for which a number of precoded songs are available. 

The Visible Music Monitor 1s intended to support 4-part harmony 
systems such as the KL-4M Visible Music Monitor is written entirely in 
6502 machine language VMM provides an easy way to enter 4-part 
music. The user can see the notes on the screen as they are entered. and 
can make Changes both with the insert and delete keys. and by using 
Cursor up and down to “move” notes on the screen Other features 
include “record changer” mode to load successive songs without 
intervention. user definable keyboard, and entry of whole notes through 
64ths including dotted and triplet notes Additionally you can ty or 
change tempo, set Key signature. and transpose at any time Wave form 
modification makes it possible to creat Voices 
Can switch from one instrument to another or gang up on one instrument 
during the course of the song. Music can be played eithe 
display (useful for debugging songs). or with no display On Disk (with manual) $32.95 


KL-4M Music Board & Visible Music Monitor Program $59.90 Manual Separate S$ 1.00 


KMMM PASCAL for PET | EARL FOR PET A Prnea core 69 


A f st Pe ii tor P 
supsel ols andard sae tense With)fonPEr Editor, Assembler, and Relocator/Linker Disk Drive 539 
Includes following standard identifiers: 815 Dual Disk Drive (Double Density) 
9 i Disk File Based for PET 
if 820 Printer (40 Column Impact) 
Types: INTEGER, BOOLEAN, CHAR, TEXT | Egitor can edit files larger than memory. 822 Thermal Printer (40 Column) 
Procedures: RESET, READ, READLN 825 Printer (80 Column Impact) 
x ? : Assembler features: 
REWRITE, WRITE, WRITELN = Pass Assemble: 


830 Acoustic Modem 
he Ae AR Ee . 2 SS! BS ~ Generates Relocatable Object Code 


850 Interface Module 
PERSONAL INTEREST AND DEVELOPMENT 
-Uses standard MOS Technology 
mnemonics 


CX4101 Invitation to Programming 1 (tape) 16 
— Disk file input 


CXL4007 Music Composer (cartridge) 48 
- Listing output to screen or printer 


ENTERTAINMENT 
CXL4004 Basketball (cartridge) uses Joysticks 32 
CXL4009 Computer Chess (cartridge) - Joystick 32 
Relocator/Linker capabilities: 
~ Relocates assembler output to desired 
memory location 


CX4111 Space Invaders (tape) uses Joysticks 16 
CXL4011 Star Raiders (cartridge) - Joystick 48 
- Resolves symbols declared external in 
assembly 


CXL4006 Super Breakout™ uses Paddles 32 
CXL4010 3-D Tic-Tac-Toe (cartridge) - Joysticks 32 
- Links multiple object programs as one 
memory load 


CXL4005 Video Easel (cartridge) uses Joysticks 32 
PROGRAMMING LANGUAGES 

EARL for PET (with User Manual) .. $65 

User Manual Only ............2.... . $15 


TUNNEL VISION & 
KAT AND MOUSE 
NOW IN MACHINE LANGUAGE 
By Riley and Levinson 


This program was so popular that several 
other versions have appeared on the market 
In order to Keep ahead of the competition, the 
program has been re-written in machine 
language for fast graphics 

The program includes two excellent maze 
games. In Tunnel Vision. you view the maze 
from inside in perspective If you get lost, the 
program provides a map showing your trail. In 
Kat and Mouse. you must find your way 
through the maze before the hungry Kat finds 
you Each maze has only one solution, and 
each is unique For all PETS $7.95 


Q ET () or Ge) ay 


div, mod, or, and, not, if , then, else, case, of, 

repeat, until, while, do, for, to, downto, begin, 

end, Const, var, array, function, procedure. 
Sequential |/O supported (both disk and tape) 
Extensions: 

Memory can be manipulated as an array (MEM) 
% sign allows hex values in literals and 1/O 
Floating Point available in 4th quarter 1980 

(nominal upgrade charge) 
Included in package: 
- Machine Language Pascal Source Editor 
~ Machine Language Compiler (generates P-Code) 


~ P-Code to machine language translator (pro- 
duces optimized machine language object code 


CXL4003 Assembler Editor (cartridge) 48 
EDUCATION-Talk & Teach™ Courseware 

(4 tapes per course, use with CXL4001) 

CXL4001 Education System Master (cartridge) 20 
CX6001 US. History 
CX6002 U.S. Government 
CX6003 Supervisory Skills 


—not just a P-Code interpreter). 
~P-Code Interpreter (for debugging and learning) 
— Run-time package 
- User Manual 
- Sample programs 
Versions available for ROMs 2.0 (cassette only), 
3.0, 4.0. Requires 16K minimum. 


KMM PASCAL on tape or disk 
(with User Manual) .................... $75 
User Manual Only 


115 E. Stump Road 


ATARI Computer Systems 


BASE UNITS SALE 
400 Computer System $419 
800 Computer System (with 16K RAM) 800 
ACCESSORIES 

8K RAM Memory Module 95 
16K RAM Memory Module 155 
CX70 Light Pen 59 
CX30-04 Paddle Controller Pair 16 
CX40-04 Joystick Controller Pair 16 
CX81 1/0 Data Cord (5 feet) 12 


CX6004 World History (Western) 
CX6005 Basic Sociology 
CX6006 Counseling Procedures 
CX6007 Principles of Accounting 
CX6008 Physics 

CX6009 Great Classics 

CX6010 Business Communications 
CX6011 Basic Psychology 
CX6012 Effective Writing 

CX6014 Principles of Economics 
CX6015 Spelling 


WRITE FOR COMPLETE CATALOG 
Montgomerwille,PA18936. 21 5-699-5826 A B Computers Add $1.25 per order for shipping. We pay balance 


of UPS surtace charges on all prepaid orders. 
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Al Baker’s 
Programming 
Hints: 

APPLE and 
ATARI 


More on Menu 
Selection 


The Apple is a programmer’s computer. It has many 
strengths and few weaknesses. However, using its 
strengths often requires the very best from a pro- 
grammer. This issue we are going to explore effective 
use of the Apple’s paddle controllers in menu selec- 
tion. Next issue we’ll continue this exploration with 
an even more powerful application of the paddles. 
But we’re getting ahead of ourselves. 

Last Issue: 

Atari 

I left the Atari readers with a problem last time: con- 
dense the number selection routine as much as possi- 
ble and use it in a program. If you’d like to share 
your solution with the rest of us, send me a listing. 
My solution is in Listing 1. The program is the old 
favorite ‘‘Guessing Game’’. 

The routine is condensed into lines 1000 to 
1050. I made a few changes in it to accomodate the 
game. The main change was to remove the setup of 
the variable ‘‘A’’. The rest of the program is the 
standard number guessing program. Lines 7 through 
23 initialize the variables, including ‘‘A’’, and lines 
30 through 80 pick out a random number and ask 
the player to guess it. 

Line 90 calls the joystick number selection 
routine. If the player makes a correct guess, then 
lines 200 to 220 tell him so and loop back for another 
game. Otherwise lines 117 to 140 give him a Bronx 
cheer, tell him how he was wrong, and loop back for 
another guess. 


1 REM GUESS € NUMBER: 

2 REM 

3 REN 

5 REM ST UP THE JOYSTICK DATA 
6 REN 

7 fie 


16 LOM 
2@ HIGH=25 


REM FLAY THE GANE 


GRAPHICS & 
POSITION 2.5 
Y "DT AN THIMKING OF A NUMBER BETWEEN" 


Y "WHAT 15 ‘YOUR GUESS:" 
GUESS=INT¢ RNDR 8 3x20 +1 
REM 
REM GET THE PLAYER'S ANSWER 
REM 
GOSUB 1BBl 
108 FPUSITIOH 14.26 
116 IF @=GQUESS THEN 20 
REM 


t 
28 
a) 
x) 
48 
36 
66 7 LOG" AND "FHIGHS". "3 
76 
bo 
be 
84 
86 
% 


itz 
114 REM WROMG GUESS 
116 REM 


11? SQUMD 6,268,18,15 

118 FOR I=1 TO 5@:NEXT I 

119 SOUND 4.5.0.6 

126 IF A<QUESS THEN 7 "TRY HIGHER" 
136 IF A>GUESS THEN 7 "TRY LOWER " 
146 GOTO 3 

176 REM 

CORRECT GUESS 


ce 7 “DU GOT IT" 

216 FOR I=1 TO S:NEXT I 
226 GOTO 3 
368 REM 
Sr REM 

338 REM 
998 REM 
1044 PURE ?52.1 

iis POSITION 27:7 Aas" “i:FUR SNDR@ TO 
15: SOUND @, 1@0-A, 18, 15-SNO: NEXT SND 

lee IF CSTICKCPLAYER-1 2=11 8¢R SLOW THE 
H 4=4@-1:60T0 i818 

1638 IF ¢STICKCPLAYER-1 os? ekC RS HIGH? THE 
No aeAt1 GOTO 161h 

idd4e IF STRIGCPLAYER-1 3 THEM Lact 

{858 RETURH 


The Apple Paddle 

The Apple hand controller has two inputs: a paddle 
and a button. The combination is called ‘‘the 
paddle’’. We are going to use the paddle to make 
menu selections in programs which do not otherwise 
use the Apple keyboard. If one or more players are 
playing a game which exclusively uses the paddles for 
game inputs, it is poor design to force them to use 


JOYSTICK HUMBER SELECT 
COTSCUSSED LAST ISSUE ° 
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APPLE* 


MICROSOFT ADVENTURE 
The original of ADVENTURE written for 
the DEC-10 systems is now available 
for the APPLE. Explore Colossal Cave 
for treasures while avoiding the 
dangers hidden within its many 
passages. 130 different rooms. 15 
treasures, and characters ranging from 
helpful to deadly await you within the 
cave. Be careful where you step, and 
also who's behind you! 
32K disk machine language 


$29.95 


ANDROID NIM 

by Leo Christopherson 

The game that made Leo 
Christopherson famous is now 
available for the APPLE! The improved 
graphics and color of the APPLE make 
the game even better. Try to be the last 
one to shoot the androids on the 
screen. If you do, you win! Also 
includes realistic sound effects. 

24K cassette machine language. . $14.95 


MAGIC PAINT BRUSH 


Hi-Res graphics package plus! Draw 
Hi-Res pictures using all APPLE’s 
colors. Connect any points on screen, 
fill areas, plot, rotate, and scale shape, 
or ‘paint’ with a set of 9 brushes. Also 
comes with Shape Table Designer and 
2 demo programs. Slot Machine and 
Applesoft Invaders. 
32K disk Applesoft-ROM 


THREE-D 
You don't have to be an engineer or 
scientist to have high resolution 
graphics for your computer! This 
program permits rotation, scaling, 
shift, distortion, and combination of 
three dimensional graphics on the 
screen. MP Software. 
48K disk Applesoft-ROM 


SR TI SF Be ES RE SI RS SEEN SE CS] 
The Software Exchange 6 SOUTH ST., MILFORD, NH 03055 
a # ae Fens] 


To order: Call Toll-Free 1-800-258-1790 (In NH call 673-5144) 


The Software Exchange & Hardside (Div of Robitaille & Sons, Enterprises, Inc ), SoftSide Publications 


16K $895 
32K $1195 


ATARI* 


STAR RAIDERS 
The best! A ROM cartridge holds the 
game. A fast-paced full-color, space 
battle in which you must defeat the 
enemy Zylon ships while protecting 
your home bases. Real-time action and 
effects make this game the best space 
game available. Sixty levels of rating 
from Garbage Scow 4th Class to 
Commander make for continuously 
exciting play. 
ROM cartridge 


3D GRAPHICS 

by Tim Hayes 

High quality graphics program for the 
ATARI computer allows you to rotate, 
distort, shrink, and combine three 
dimension graphic projections on the 
screen. With the high resolution 
abilities of the ATARI, one of the finest 
graphics packages available anywhere! 
16K cassette $29.95 


WALL STREET CHALLENGE 6402 

A computer simulation of the Stock 
Exchange is easy to play and always 
challenging. Invest in stocks, and try to 
make it big! 

8K and 16K version on one cassette 
$19.95 


ALL STAR BASEBALL 6401 

Two players face each other, one at 
batand the other pitcher and outfield. 
Innings, balls, strikes, and a variety of 
plays make for an exciting game. 
Joysticks are optional. 

8K and 16K versions on one cassette. 
$19.95 


STARFLEET ORION 

Command a starfleet! 2 player game 
system includes rule book, battle 
manual, control sheets. Two programs. 
22 space ship types and 12 play tested 
scenarios. 
BK Cassette... 2.6... caerencees 
RESCUE AT RIGEL 

Search the moon base and rescue 
Delilah Rookh from the High Tollah. 
Automatic Simulations. 

24K cassette 


MORLOC’S TOWER 

Match wits with the evil wizard and try 

to defeat him! Automated Simulations. 

32K cassette $14.95 


TIME TREK 


by Brad Templeton from Personal 
Software. Real time action. Star Trek 
type game with sound effects. There 
are no ‘turns’. The action continues 
whether you move or not. You and the 
Klingons can move, steer, and fire at 
the same time. 

8K cassette 


This is only a very small sample of 
our product line. For a complete 
selection, send $1 for our catalog 
of hardware, software, and 
publications and receive a $2 
credit toward your first order. 


APPLE, ATARI, and PET are trademarks of 
Apple Computer Co., Warner Communications, 


and Commodore, respectively 
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the keyboard when making menu or other choices 
between or during games. Let’s avoid the keyboard. 

Listing 2 is a sample program that uses paddle 0 
to make a menu selection. It puts up a list of five 
selections. Turn the paddle until the selection you 
want is highlighted and push the button. That selec- 
tion is yours. Push the button again to make another 
selection. This sounds simple enough and, for the 
user, It 1s. 

For the programmer the problem is anything but 
simple. There are several problems that must be 
solved. First, the paddle must ‘‘feel’’ right. This 
means that it must have fluidly -- no jerkiness. Also, 
pushing the button must feel like an ‘‘event’’ similar 
to pressing a keyboard key. The button was designed 
to feel like a continuous ‘‘state’’ where holding it 
down creates a continuous input until released. 

The Program 

Lines 60 to 90 initialize the sample program and 
define the five selections on the menu. Lines 100 to 
106 clear the screen and bypass the user’s input. 
This is done to get the menu on the screen to start 
with. PR contains the menu item pointed to by the 
paddle. The menu display routine on lines 220 
through 280 print the five selections. The menu entry 
that matches PR is shown in inverse video. 

Now let’s sturdy closely the input routine on 
lines 140 to 185. Line 145 picks up the value from 
paddle 0 and converts it into a number between 0 
and 5*50-1. This is done so that line 150 will always 
assign a value to the variable PA between 1 and 5. If 
line 145 allowed values of PA greater than 249 then 
line 150 would let PA equal as much as 6, a menu 
item which doesn’t exist. 

Now the program checks the status of the button 
in line 160. If PEEK(-16287) is greater than 127 then 
the button is pressed and the user has made his 
choice. Otherwise the program checks to see if the 
new value from the paddle is unchanged. As long as 
PA equals PR the program will continue to monitor 
the paddle and button by looping back to line 145. If 
they are not the same, the user has moved the pad- 
dle. The program sounds the bell in line 184 and 
BEGINS to change the menu display to match the 
new paddle position. 

If line 185 was PR = PA then rapid changes of 
the paddle would create jerky changes in the display. 
Spinning the paddle from left to right might cause 
the menu to change from a highlighted first selection 
to a highlighted fifth selection, for example. This 
doesn’t feel right to the user, especially the non- 
programmer. He usually thinks there is almost a 
mechanical linkage between what he does and what 
happens on the screen. Having a smooth paddle mo- 
tion create jerky screen changes violates this sense 
and feels wrong. 

Instead of setting PR equal to PA, line 185 
moves PR closer to the value of PA. If PA is bigger 


than PR, then it adds 1 to PR. If PA is less than PR 
than it subtracts one from PR. Finally, lines 220 to 
280 reprint the menu and go back for more user in- 
put. 


10 REM PADDLE MENU SELECT 
20 REM 

30) REM 

40 REM 

SO REM DEFINE THE OFTIONS 


60 DIM OP$(5) 

70 FOR I = 1 TO Si READ OF$(I)% NEXT 
I 

80 DATA THE MAGICIAN» THE DETECT 
IVEsTHE SOLDIER 


90 DATA THE COWBOYsTHE POLITICI 
AN 

100 PR = 0 

105 CALL ~- 936 

106 GOTO 220 

119 REM 

120 REM WAIT FOR PADDLE MOVE 

130 REM 

140 CALL - 936 

1445 PA = FDL ¢0)% IF FA > 249 THEN 
PA = 249 

150 PA = INT (FA / 50) + 1 

160 BU = PEEK ¢ - 16287) 

170 IF BU = 127 THEN 320 

180 IF FA = FR THEN 145 

184 FRINT CHR (7)35 

185 PR = FR + SGN (PA - PR) 

190 REM 

200 REM DISPLAY MENU 


210 REM 

22 FOR T= 1705 
230 QF PR = I THEN INVERSE 
240 HTAR 10: VIARS + 2¥ I 
250 FRINT OFS(T) 

260 NORMAL 


270 NEXT I 

280 GOTO 145 

290 REM 

300 REM SELECTION HAS BEEN MATE 

310 REM 

320 CALL - 936 

330 YTAR S 

340 FRINT CHR €7)s"YOU SELECTE 
I "sOP$( PA) 

341 REM 

342 REM WAIT FOR BUTTON TO BE R 
ELEASED 

344 BU = PEEK ( - 16287) 

345° IF BU > 127 THEN 344 

346 REM 

347, REM WAIT FOR BUTTON TO CONT 
INUE 
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348 =REM 

350 VTAR 15 

360 PRINT "PRESS BUTTON TO CONTI 
NUE" $ 

370 BU = PEEK ¢ — 16287) 

380 IF BU * 128 THEN 370 

385 CALL - 936 

386 PRINT CHRS (7)5 


390 REM 

400 REM WAIT FOR BUTTON TO BE R 
ELEASETD 

410 REM 


420 BU = PEEK ( — 16287) 
430 IF BU > 127 THEN 420 
440 GOTO 100 


The remainder of the program handles the 
user’s menu choice. Lines 320 to 340 display the 


choice and lines 344 and 345 wait for him to release 
the button. Remember that he pressed the button to 


make the selection. The program shouldn’t reread 


the button until the user has let it go. Once the but- 


ton is released, lines 350 and 386 request that the 


user press the button, wait for the button press, and 


sound the bell. Then lines 420 to 440 wait for the 


button to be released before going back to the menu. 


Conclusion 

We’ve explored one use of the Apple paddle. Next 
time we are going to simulate a joystick for such 
games as Space Invaders. The actual arcade game 
uses a joystick to control sun motion. Most Apple 
versions treat the paddle as direct input to position 
the sun. This tends to frustrate Space Invader fans 
who are used to the real thing. 

Here is your problem for next time. How can 
you simulate a two way joystick (left<-center- > 
right) with the Apple paddle without needing to 
know at any time how far the paddle is from its 
center position? 


— 
appic computer 


= Authorized Dealer 


FULL SELECTION OF APPLE 
COMPUTERS AND ACCESSORIES. 
24 IN 
CANADA 


For Personal - Business - Educational ap- 
plications and more, there’s only one place 
to come for all your APPLE needs. 


OFF THE SHELF DELIVERY. 


HOUSE oF COMPUTERS inc. 


368 EGLINTON AVE. W. (at Avenue Rd.) 
TORONTO, ONTARIO MSN 1A2 


(416) 482-4336 


CRAE 
A fast co-resident Applesoft editor for Applesoft program- 
mers. Now perform global changes & finds to anything in 
your Applesoft program. Quote (copy) a range of lines from 
one part of your program to another. A fully optimized stop- 
list command that lists your program to the screen with no 
spaces added and forty columns wide. Append Applesoft 
programs on disk to program in memory. Formatted 
memory dump to aid debugging. Powerful renumber is five 
times faster than most available renumber routines. Auto 
line numbering. CRAE need be loaded only once and 
changes your Applesoft program right in memory. 48K 
Apple Il or Plus & Applesoft ROM & disk. 

MCAT 
MCAT is a binary program which creates a master catalog 
report. The first list is sorted by file names and the second 
by volume number with sectors used indicated, provisions 
for duplicate volume numbers. 600 file names capacity on 
48K system. 200 for a 32K system. 

SINBAD 

Hires adventure-like game using over 100 pictures. Re- 
quires 48 K Applesoft ROM, Disk. 
CRAE on Disk With 16 Page Manual............... $19.95 
MCAT on Disk With 10 Page Manual....... 
CRAE And MCAT On One Disk With Manuals . J 
SINBADIC A DISK: scsnsnsnseeacs sie cgcreps ovegsncnengee one eetnieeta ar $17.95 
CRAE/MCAT Manuals Include Instructions For Making A 
Backup Copy. 


SEE YOUR LOCAL DEALER OR SEND CHECKS TO 
HIGHLANDS COMPUTER SERVICES 
14422 S.E. 132nd 
Renton, Washington 98055 
(206) 228-6691 


Washington residents add 5.3% sales tax. Applesoft and Apple 
registered trademarks of Apple computers Inc. 
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Fun With the 
6502 

Atari Software 
Reviews 


Atari 3 Dimensional 
Graphics 


Len Lindsay 


Sebrees Computing (456 Granite Ave., Monrovia, 
CA) is marketing a sophisticated software package 
that will help you create your own three dimensional 
pictures on your Atari screen, and even have them 
moving in any direction you would like. The soft- 
ware package costs $29.95 plus $1.50 postage and 
handling. 

I have referred to this software as a package, 
rather than as a program, because you receive four 
separate programs on the tape. Along with the tape 
comes a manual explaining how to use the programs 
and how they work. The last pages of the manual 
contain complete listings of each of the programs. 

I received a preliminary version of 3D Com- 
puter Graphics for the ATARI, and was impressed. 
For example, the first program mixes all three types 
of TEXT MODES on the screen at one time which 
is very interesting. The final version will use more 
colors in Graphics mode 8 than the default maximum 
set by BASIC. 

The programs allow you to set up the three 
dimensional coordinates of any object you wish 
drawn on the screen (using X, Y, Z axes). It takes 
quite some time to figure out all the coordinates and 
enter them into the program. (This is a serious pro- 
gram; plan on spending some time with it.) Once 
you have all the coordinates entered, you can have 
the object drawn on your screen. This sounds 
simplistic, but you can vary the place that you are 
viewing the object from; vary the field of view; and 
‘“‘vary’’ the viewing position you are looking at the 
object from. And you can draw the object, or erase it, 
all under program control. Thus you can actually 
create a three dimensional animated scene. 

The final manual will have a complete chapter 
on examples. The last program on the tape is an ex- 
ample of animation all ready to RUN. You can 
watch an animated SPACE SHUTTLE. A plastic 
model of the Space Shuttle was used along with 
graph paper to identify its outline coordinates. 


If you are set for some serious fun with your 
ATARI, and have the time to enter coordinates of 
your object into the program’s data base, then you 
should enjoy this package. 


The Video Easel 
Cartridge 
from Atari 


This is one of ATARI’s plug-in cartridges. It is an 
amazing cartridge, showing off some of the ATARI’s 
amazing capabilities. It uses joysticks to control 
many of its functions. The more you use it the more 
things you find you can do. 

Painting (demo mode) 


There are 6 different dynamic paintings preset for 
your instant use. Simply hit P (for Painting), then 
hit a number 1 - 6 for the painting number, then hit 
RETURN and the painting begins. My favorite 
paintings are numbers 1, 3, and 6. You can switch 
from one painting to another at any time. The screen 
is not cleared when you transfer unless you want it to 
clear. To clear the screen, hit C (for Clear) and 
RETURN. The paintings are constantly changing, 
creating beautiful displays. And it is FAST. You can 
even control the speed if you wish. Simply use 
joystick #1. Push it forward and the painting speeds 
up. Pull it back and it slows down. Slow it down to a 
snails pace and watch how the video magic is per- 
formed (it is extremely interesting). You can control 
colors used with joystick #2. Push it forward or right 
or left to change the color registers. Hold the RED 
button down at the same time and you change the 
luminance levels. 

Drawing 


Now for the exciting news. You can create your own 
custom dynamic painting sets. It is very simple and 
provides a great sense of accomplishment and 
satisfaction. 

Hit D (for Draw) and RETURN and you are in 
the DRAW ‘“‘set-up’’ mode. Use joystick #1 to set up 
the master pattern. Your master pattern can both 
DRAW and ERASE lines. To set up a DRAW hold 
the RED button down as you move a small dot 
around the screen with your joystick (leaving a trail). 
To erase, don’t hold the RED button down. When 
you are ready simply hit S (for Start) and RETURN 
and ZAP, the computer starts drawing your pattern 
over and over rapidly filling the screen with your ins- 
tant masterpiece. You can control the speed and col- 
ors as for PAINTING mentioned above. 

This DRAW mode can easily be used for trivial 
fun. But, it can just as easily be used for some 
serious fun. However, to create some well-designed, 
thoughtful, dynamic paintings, you will have to 
spend some time experimenting. See if you can 
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PET ATARI APPLE SYM 


OR 
INTREOM > PET RABBIT cassette 


The PET RABBIT contains high-speed cassette 
routines, auto-repeat key feature, memory test, decimal 
to hex, hex to decimal, and other features. Coexists 
with the BASIC PROGRAMMERS TOOLKIT. Works 
with 2.0 ROMS (New) and new style cassette deck. 


Cassette versions configured for $1800, $3000, $3800, 
$7000, and $7800. 
Cassette and manual — $29.95 


ROM version configured to plug into P.C. board at 
$A000. 
ROM and manual — $49.95 


FREE ROM RABBIT with purchase of 8K PET and tape 
deck. 

SPECIAL — ROM RABBIT and cassette deck — only 
$134.95 


MACRO ASSEMBLER 


AND 


TEXT EDITOR 


Macro and conditional assembly, string search and 
replace, 10 char./label, AUTO line numbering, MOVE, 
COPY, DELETE, NUMBER, and much more. 20+ 


EHS ISNOWA ] 
COMMODORE DEALER 


EHS offers a number of software products for PET, 
ATARI, APPLE, and other 6502 computers. Now we sell 
CBM hardware. If you're in the market for PET 
products, be sure to look for our FREE software offers. 


CBM PRODUCT DESCRIPTION PRICE 
2001-8KN 8K RAM-Graphics Keyboard $ 795.00 
2001-32KN 32K RAM-Graphics Keyboard $1295.00 
2001-32KB 32K RAM-Business Keyboard $1295.00 
8032 32K RAM-30 Col.-4.0 O/S $1795.00 
2023 Friction Feed Printer $ 695.00 
2022 Tractor Feed Printer $ 795.00 
2040 Dual Floppy-343K-DOS 1.0 $1295,00 
2050 Dual Floppy-343K-DOS 2.0 $1295.00 
8050 Dual! Floppy-974K-DOS 2.0 $1695.00 
C2N Cassette External Cassette Drive $ 95.00 
CBM to IEEE CBM to 1st IEEE Peripheral $ 39.95 
IEEE to IEEE CBM to 2nd IEEE Peripheral $ 49.95 
8010 IEEE 300 Baud Modem $ 395.00 
2.0DOS DOS Upgrade for 2040 $ 50.00 
4.00/S O/S Upgrade for 40 Column $ 100.00 


EDUCATIONAL DISCOUNTS 
BUY 2 — GET 1 FREE 


commands, and 20+ pseudo ops. 


PET cassette version (ASSM/TED) — $49.95 
PET disk version (MAE) — $169.95 

ATARI cassette version with machine 
monitor — $53.95 


FREE ASSM/TED and ROM RABBIT with purchase of 
32K PET and cassette deck. 
FREE MAE with purchase of 32K PET and disk drive. 


TINY-C FOR PET 


An adaptation of the TINY-C interpreter sold by Tiny-C 
Assoc. Useful for learning a modern structured 
programming language. Diskette — $45.00, Owners 
manual — $40.00 


language 


FREE MAE and TINY-C with purchase of 32K PET, 
disk drive, and printer. 


COMPILERS 


Graphics Drawing Compiler for PET and SYM. Works 
with Macro ASSM/TED. The GDC is composed of a 
number of macros which emulate a high-level graphics 
drawing language. In addition to the macros, GDC 
Provides some very useful enhancements to the 
ASSM/TED. Manual and Cassette — $29.95 


Music and Sound Composer for PET. Works with 
Macro ASSM/TED. The MSC is composed of anumber 
of macros which emulate a high-level computer music 
language. In addition to the macros, MSC provides 
some very useful enhancements to the ASSM/TED 
Manual and Cassette — $29.95 

= 


1/O KIT 


PET I/O Experimenters Kit. Allows easy access to IEEE 


or user port for the construction of external circuits 
Kit — $39.95 


ORDERING TERMS 
Send check or money order in U.S. dollars. Add 2% for 
postage for CBM orders. Overseas software orders add 
$5.00. All software mailed free in USA and Canada 
Purchase orders acceptable. 


TRAP 65 


TRAP 65 prevents the 6502 from executing unimple- 
mented instructions. Have you ever had your system to 
crash ona bad upcode? This is a real machine language 
debugging tool and time saver. Also useful for teaching 
trap vectoring and extension of instruction set in 
schools. 312 x 4% printed circuit board which plugs into 
6502 socket of any PET, APPLE, SYM. Only $149.95 


ATARI M.L. MONITOR 


Load and save binary data on cassette. Display and 
change 6502 registers. 

Monitor uses the screen editing capabilities of the 
ATARI to allow easy use. Cassette and manual — $9.95 
(specify memory size). 


ATARI MEMORY TEST 


When you purchase a new ATARI or add on new RAM 
modules, you need to be sure that the memory is working 
properly. (Remember, you only have a short guarantee 
on your memory!) Cassette and manual — $4.95 


je 


APPLE PRODUCTS 


Macro ASSM/TED — includes manual, on cassette — 
$49.95, on disk — $55.95 

Apple MAE — similar to PET MAE. A powerful 
assembly development system on diskette. (Requires 
license agreement) — $169.95 

PIG PEN — 100% M.L. word processor for use with 
Apple ASSM/TED. Fast text formatting, vertical and 
horizontal margins, right and left justification, center- 
ing. titles, foots, shapes, etc. Manual and source 
included. on cassette — $40.00, on diskette — $45.00 


Apple Mail List System. Provides sorting on zip code or 
last name. Approximately 1000 names/diskette 
Manual and Diskette — $34.95 


EASTERN HOUSE SOFTWARE | 


3239 Linda Drive, Winston-Salem, N.C. 27106 


Ph. Orders — 9-4 EST (919) 924-2889 or 748-8446 
Send SASE for free catalog 
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figure out just what the computer does when it 
duplicates your pattern. You may find that the 
screen fills up too fast, and then looks like garbage. 
AHA. Your master pattern should include some 
ERASE lines, to help keep the screen from filling up. 
There are other tricks to creating long-lasting 
dynamic art, but I won’t spoil your fun by telling 
you what they are. 

Quad Drawing 

If you like DRAWing, you will have four times the 
fun with QUAD DRAWing. This divides the screen 
into four quadrants, focusing on the center. Now you 
draw in all four quadrants at once (symmetrically of 
course). This is a fast way to create interesting 
designs. 


Who and Why 


Children as young as 6 years old can control the 
VIDEO EASEL. It will encourage experimenting 
and exploration, as well as allow creative play and 
aid visual thinking. It can be used at very simple 
levels, but can be much more sophisticated for use by 
high school students. It was with more sophisticated 
use in mind that LIFE was included. 


Life 


This is a population simulation. Although it is refer- 
red to as the game of LIFE, there really are no op- 
ponents or winning strategies. A whole article could 
be devoted just to explaining the significance of this 
famous ‘‘game’’, in fact many such articles already 
have been published. A partial bibliography is in- 
cluded with the VIDEO EASEL manual. There is 
even a newsletter dealing with this computer simula- 
tion. It basically deals with a population of ‘‘cells’’ 
that you set up. Once you START it, it follows set 
rules: 

1) Law of Survival - each cell with 2 or 3 neighbor 
cells survives to the next generation. Each cell with 4 
or more neighbors will die from ‘‘overcrowding’’. 
Each cell with one or less neighbors will doe from 
‘“solation”’ 

2) Law of Birth - each empty space with exactly 3 
neighbors will create a new cell for the next genera- 
tion. 

ATARI’s LIFE is very fast, and has many fancy 
“extras’’built in to make it easier to use for fun and 
recreation. You can put the cells on the screen one at 
a time if you wish, but that takes time. So ATARI 
gives you several options to put many cells up at one 
time. 

a) BIG X - puts an X on the screen 

b) LINE - puts lines (horizontal or vertical) on the 
screen of any length 

c) DIAGONAL - puts diagonal lines on the screen 
d) IBEAM - puts a large I on the screen 

Each of the above can be used with the others. Once 
you have the screen set up with all your “‘cells’? you 
simply hit S (for Start) and watch the generations go 


by. Some very interesting patterns are created. For 
more advanced use, you can automatically put 
GLIDERS and FACTORIES on the screen. Fac- 
tories create Gliders. They both are fully explained 
in the manual. 

Final Remarks 


Video Easel may appear to be simply a glorified 
drawing program, but it is much more. I am very 
satisfied with it, and my daughter enjoys it as well, 
even though she is only three years old. In several 
years it should prove thought provoking for her. It 
can be used successfully in grade schools (for the pat- 
terns and drawing) and in high schools (for the game 
of LIFE simulation). (oO 


CATALOGS 


O Software. Lists 400 pro- 
grams on 70 tapes and 
disks. For education, recre- 
ation, and personal use. 


O Books. Lists 100 books, 
games, records, prints, etc. 
for educational and per- 
sonal users of small compu- 
ters. 


O Peripherals. (ALF music 
synthesizer and Versa- 
Writer for the Apple Il). 


Send 3 15¢ stamps for 
either catalog or 5 for both. 
Or send $2.00 for a sample 
issue of Creative Computing 
and both catalogs. 


creative 
corpatirg 


DEPT. CPJG 
P.O. Box 789-M 
Morristown, NJ 07960 
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Randomize 


For The 
Apple Il 


Sherm Ostrowsky 
291 Salisbury Avenue 
Goleta, CA 93017 


When you play games on your Apple II, do things 
start looking familiar after a while? Does the game 
get boring because you know just what is going to 
happen next, even though the random number 
generator in the program is supposed to make each 
event unexpected? There is a simple, one-line state- 
ment in BASIC which can remedy this problem; you 
can use it in your own programs, or even insert it in- 
to commercial programs after loading them. 

The problem arises because the random 
numbers generated by the RND(1) function are part 
of a pseudo-random sequence which is always the 
same whenever you turn on the computer. You can 
select a different pseudo-random sequence by first 
entering a seed, S, and using a statement like: 

X = RND(-S) 
before any of the calls to RND(1). But this sequence, 
too, will always be the same very time you run your 
program with the same seed. What is really needed is 
a way to generate a starting seed which is different 
every time you run the program, and which is 
unknown to you. 

Some versions of BASIC have a command 
(‘“RANDOMIZE’’) which does just this. Apple 
BASIC and APPLESOFT, unfortunately, do not 
have this command. A method which has been used 
by many Apple programmers to get around this dif- 


ficulty is to ask for a starting seed from the user at 
the beginning of the program run, e.g., 

10 INPUT ‘‘SEED: ’’;S : X = RND(-S) 
This will indeed start a different sequence of random 
numbers for that run, but it has some undesirable 
features. It may not be compatible with the ambience 
of the game (‘‘Welcome to the space world of the 
twenty-third century’ please enter a seed.’’). The 
user may not know enough about computers to 
understand what is wanted. And in any case, it is 
best if the seed is not known to the user, so each 
game can come as a complete surprise. 

A somewhat more sophisticated approach, which 
I have seen used in at least one elegant program, 
uses a sequence such as 

20 PRINT‘‘HIT ANY KEY WHEN READY 

TO PROCEED”’’; 

30 X = RND(1): X = PEEK(-16384): 

IF X ~ 128 GOTO 30 
This does the job: while waiting for the key to be 
pressed, the repeated calls to RND place the system 
at an unknown and unpredictable location in the 
random number sequence. It is, however, not 
necessary to program this so directly, because the 
Apple monitor has a built-in routine which does the 
same thing. 

The Apple’s pseudo-RANDOMIZE function 
works as follows: whenever the cursor is blinking at 
you while awaiting some kind of input, a little 
machine-language loop is rapidly and repeatedly in- 
crementing a two-byte integer stored at decimal loca- 
tions 78 (low byte) and 79 (high byte). No matter 
how fast you respond by typing some input, this loop 
will have gone around so many times that the 
number stored in those locations will be quite ran- 
dom and unknown. Now, in order to get your pro- 
gram into the computer, it must obviously have been 
necessary either to type it in or read it in from tape 
or disk; either way, the blinking cursor must have 
appeared for you, even if only to await the LOAD 
command. Therefore, there will always be a random 
number waiting there to be your seed. 

A simple way to use this pseudo-RANDOMIZE 
function is just to put the following statement near 
the beginning of your program: 

10 X = RND(-PEEK(78) - 256 * PEEK(79)) 
Thereafter, any uses of RND(1) will get numbers out 
of a completely unpredictable sequence of random 
numbers. 
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SCREENDUMP 


Jeff Schmoyer 


Screendump is a machine language utility program 
which prints the contents of an Apple II text screen 
to any printer. It is executed by pressing a control-Z 
on the keyboard in response to any input. Its uses 
include printing the catalog without having to 
specifically start the printer, getting a hardcopy prin- 
tout of instructions from programs, and selectively 
preserving information on the screen. Screendump 
will run on any size Apple II computer with or 
without a disk drive. It will work from Applesoft, In- 
teger BASIC, or the Monitor. 

Throughout this article control characters are 
printed in the format control-Z. This means press the 
Control key, and while holding it down, type Z or 
whatever other character is requested. Control 
characters are not displayed on the Apple’s screen. 
All the addresses shown with dollar signs ($) in front 
are hexadecimal addresses. 

When activated, Screendump replaces the 
system’s standard character input hooks with its own. 
Normally when the computer wants a character, it 
goes to the Monitor keyboard input routine which 
waits for one to be typed and then passes it on. 
When Screendump is on, the computer goes to it for 
a character. It then checks to see if the character 
typed was a control-Z. If not, it passes it on just like 
the normal routine. If the character was a control-Z, 
it prints out the screen. 

To accomodate different types of printers and 
interfaces, Screendump has its own output hooks at 
$2FE and $2FF. These should be set to the address 
of the printer driver routine which prints one 
character. On each of Apples’ and most other 
manufacturers printer cards resides a ROM contain- 
ing a printer driver routine to make the card work. 
After a PR#1 (if the card is in slot 1) is executed, the 
computer jumps to that driver whenever it wants to 
print a character. It does this by setting the systems 
output hooks to the appropriate driver address. For 
an Apple parallel card in slot 1 this address is $C 102. 
If a different card is to be used, this address may be 
discovered through the following procedure. 

Go to the Monitor by pressing Reset on a standard 
Apple II or by CALL -151 on an Apple II Plus or an 
Apple II containing a Language System. _ 

Type control-P control-K and Return to disconnect 


the DOS. . aa 
Type the slot number that the printer card is in 


followed by a control-P and Return. For slot 1 this 


would be 1 control-P Return. : 
Type 36.37 Return. This will display the printer ad- 
dress in reverse order. For $C102 it would show 


36:02 C1. ; , 
These need to be placed in Screendump in reverse 


order also. For $C102, $2FE should get $02 and 
$2FF should get $C1. 


One other change is required for systems without 
disk drives. The value at locations $2B7 needs to be 
changed from $4C to $60. 

To use Screendump from the Monitor type 2AFG 
and Return or from either BASIC type CALL 687 
and Return. Now any time control-Z is pressed, the 
current screen will be printed. Screendump may be 
used anytime up to the next Reset or IN# command. 

To save Screendump to tape, from the Monitor 
type 2AF,2FFW. To save it to disk type BSAVE 
SCREENDUMP,A$2AF,L$51. To reload it from 
tape, go to the Monitor and type 2AF.2FFR. To 
reload it from disk enter BLOAD SCREENDUMP 
or alternatively BRUN SCREENDUMP. The latter 
would both load Screendump and activate it. 

Some printer cards, such as Apples’ parallel 
card, need to be initialized before they can be used. 
This initialization must be done each time the com- 
puter is turned on, or with some cards, each time 
Reset is pressed. For a parallel card in slot 1 the se- 
quence would be 

PR#1 

control-I 40N control-I K 

PR#0. 

After Screendump is activated, through the execution 
of a CALL 687 or one of the other previously 
described turn-on procedures, it may be utilized by 
typing a control-Z in response to any input. For ex- 
ample if the catalog is being displayed and the com- 
puter is waiting for any key to be pressed before 
showing more, control-Z can be entered and what is 
on the screen will be printed. The catalog will not 
advance until some other key is pressed. As another 
example, assume you are playing your favorite 
adventure game and it is waiting for you to enter a 
command. Typing control-Z will print the current 
screenful of information describing your whereabouts 
for future reference. 

In some cases the control-Z character may need 
to be used by other programs or devices such as the 
Micromodem II, for their own purposes. If Screen- 
dump is active, it will never let a control-Z go 
through he system. To make a different use of 
control-Z, Screendump may be deactivated through 
an IN#0 or Reset, or the Screendump execution 
character can be changed to something other than a 
control-Z. This is accomplished from Applesoft by 
typing POKE 702,CHR$(‘‘newchar’’). The 
character in quotes, newchar, may be any character 
the system is not using for something else. For exam- 
ple, an A would not be a good character to use since 
everytime an A was typed the printer would start. 

The operation of Screendump is as follows. 
SDINIT is the startup routine. It takes SCREEN- 
DUMPs address and puts it in the input hooks so 
that Screendump is called to get each character. If a 
disk is being used, the DOS is jumped to, passing 
the input address information along to it. 

As previously outlined, when the system wants a 
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character it goes to SCREENDUMP which in turn 
looks to the Monitor routine KEYIN for a character. 
It then checks to see if the character entered was a 
control-Z. If not, it returns the character to the 
caller, your adventure program or whatever. 

DUMPIT is the routine that actually prints the 
screen. First it saves the CPU registers and the cur- 
rent screen pointers. This is so that when it is finish- 
ed, the cursor position and other information will still 
be intact. 

Next it zeros the X register which will serve as 
the screen line counter. The Y register will contain 
the character position on that line. The X register 
(the line) is then transferred to the accumulator (the 
A register) and the Monitor routine GBASCALC is 
called. This routine translates the line number in the 
accumulator into the actual location of where that 


:RASM 

0000: 1; SCREENDUMP 

0000; ye 

0000: 3 DUMP SCREEN TG PRINTER WHENEVER 

0000; a CONTROL-Z IS PRESSED. 

0000: S$; 

0000: 6; BY JEFF SCHMOYER 5-30 

0000: Far 

0000; 8: 

0000: 9 KSUWL EQU $38 CHAR IN HOOKS 

0000; 10 KSWH EQU KSWL+1 

0000; 11 DOSSET EQU $3EA DOS SET HOOK ROUTINE 

0000: 12 CH EQU $24 CURSOR HORIZONTAL 

0000: 13 GBASL EQU $26 BASE LINE ADDRESS 

0000; 14 GBASH EQU GBASL+1 

0000: 15 GBASCALC EQU $F&47 CALCULATE BASE ADDRESS ROUTINE 

0000: 16 PRINT EQU $C102 PRINTER CARD CHAR OUT ADDRESS 

0000: 17 RDKEY EQU $FDOC MONITOR IN 

0000; 18 KEYIN EQU $FD1B GET ONE PRESS 

0000: 19 CR EQU $8D CARRIAGE RETURN 

0000: 20: 

O2AF : 21 ORG $2AF 

O2AF : 22 OBJ $2AF 

O2AF : 23 : 

O2AF : 24; INITIALIZE THE INPUT HOOKS 

O2AF: 25; TO POINT TO OUR ROUTINE. 

O2AF : 26; 

O2AF: AS BA 27 SDINIT LDA #SCREENDUMP 

02B1: 85 338 28 STA KSWL 

O02B3: AD 02 29 LDR #SCREENDUMP/256 

0285: 85 39 30 STA KSWH 

eh 4C EA 03 31 IMP DOSSET MOVE SCREENDUMP INPUT HOOKS TO DOS 
A: 32: 

02BA: 33; GET A CHAR FROM THE KEYBOARD 

028A: 34; AND CHECK FOR CONTROL-2. 

02BA: 35; IF NOT THEN RETURN CHAR TO CALLER. 

02BR: 3%: 

O2BA: 20 1B FD 37 SCREENDUMP JSR KEYIN GET A CHAR 

028D: C9 9A 338 CMP #$9A Is IT A CTRL-27 

O2BF: FO 01 39 BEQ DUMPIT YES DUMP SCREEN 

0201; 60 40 RTS NO. SEND BACK CHARACTER 


line starts in computer memory. 

The forty characters for that line are now 
printed followed by a carriage return. The routine 
then goes to the next line and so on until it has done 
24 lines. 

After it finishes the screen, it restores the saved 
screen pointers and registers. Finally it goes to get a 
new character. It does this instead of passing the 
control-Z on to the system and causing a probable 
SYNTAX ERROR. 

Screendump resides in memory at the end of the 
keyboard buffer area. These locations are generally 
not used by other programs but if a very long line is 
typed in, over 170 characters, Screendump will be 
destroyed. If it was active at the time of destruction, 
the computer will stop or do strange things. Hit 
Reset to recover. 
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a2C2: 41; 

0202: 2: SAVE CURRENT POINTERS AND 

0202: 43; PRINT THE SCREEN. 

0202: 44; 

02C2; 8A 45 DUMPIT TRA SAVE REGS 

0203: 48 46 PHA 

204: 98 47 TYA 

o2cs: 42 48 PHA 

0206: AS 26 49 LDA GBASL SAVE CURRENT SCREEN POINTERS 
g203: 48 50 PHA 

0209: AS 27 Sl LDA GEASH 

O2CE: 43 S2 PHA 

ozCC: AS 24 53 LOA CH 

02CE: 4& 54 PHA 

o2cF: AZ 00 55 LOX #0 LINE COUNTER 
O201; 86 24 56 STS CH ZERO CURSOR HORIZONTAL 
02D3: AD 00 S? NEXTLINE LDY #0 COLUMN COLINTER 
02D5; SA 58 TXA A GETS LINE 

Q2D6: 20 47 FS 59 JSR GBASCALC TRAHSLATE IT 
N2D9; Bi 2 60 NEXTCHAR LDA <GBASL>.‘? GET A CHAR 

O2DB; 20 FD 02 é1 JSR PRINTONE OUT WITH IT ‘ 
O2DE; Ce 62 INY MOVE TO NEXT CHAR 
O2DF;: CO 28 63 cPY #40 LINE DONE? 

O2E1; DO Fé 64 BNE NEXTCHAR NO 

O2E3; AZ 8D 65 LDA #CR 

O2E5: 20 FD 02 56 JSR PRINTONE 

O2E8: Ee 67 INX NEXT LINE 

O2E3: EO 18 68 CPa #24 ALL DONE? 

O2EB; DO E6 69 BNE NEXTLINE No 

O2ED: 63 70 PLA PUT OLD LINE STUFF BACK 
Q2EE: 85 24 71 STA CH 

O2F0; 68 72 PLA 

Q2F1: 285 27 73 STA GBASH 

02FZ: 62 74 PLA 

O02F4: 85 26 75 STA GBASL 

02F6; 63 76 PLA 

Q2F7; AB ee TAY RESTORE REGS 
O2F3: 63 78 PLA 

02F9; AA 79 TAX 

O2FA: 4C€ OC FD 80 JMP RDKEY GET NEW KEYPRESS 
O2ZFD: 81: 

O2FC: 82: JUMP TO ACTUAL PRINTER DRIVER: 

02FD: 83; CHARACTER OUTFUT ROUTINE. 

02FE: 84; 

O2FD: 4C 02 C1 85 FRINTONE IMP PRINT 


0 ERRORS IN THIS ASSEMBLY © 
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Thesus Versus 
The Minotaur: 


PASCAL Visits 


Ancient Greece 


Josepn H. Budge 2507 Elderwood Lane 
Burlington, NC 27215 


In ancient Crete there was a monster called the 
Minotaur who lived in an impossible maze, the 
Labyrinth. The Minotaur was a magical creature, 
half-man and half-bull. Once a year he demanded a 
human sacrifice. In return for the sacrifice he would 
protect the rest of the citizens from the evils of their 
enemies and nature. Appropriately enough, this was 
called the Minoan civilization. As time went on, the 
Minoans grew tired of the yearly sacrifices. After all, 
it was a drain on the population. Not only that, but 
people forgot how valuable their protection was. 
Eventually, the Minoans actually had to force people 
to sacrifice themselves. Imagine that! The victim 
would be thrown into the labyrinth, get lost, and 
eventually bump into Minotaur, with predictable 
consequences. 

One day your basic Greek Hero type showed 
up, a dude named Theseus. Since it was sacrifice 
day, the Minoans grabbed Theseus and threw him in 
the Labyrinth. Being a Greek Hero and all, Theseus 
had his trusty battle-ax and a ball of string. He un- 
wound the string until he found the Minotaur, slew 
the beast, and then followed his string back out. 
Through the marvels of modern science we are able 
to take you back in time to the very time and place 
of this epic event. Theseus is just stepping off his 
boat... 

Suddenly a Minoan guard on the city wall 
challenges him: ‘‘Who goes there?”’ 

‘*Tis I, Theseus, son of fair Hebride and mighty 
warrior, I come in peace.”’ 

Well, before he knows what’s happening, a pla- 
toon of soldiers emerges from the city, grabs 
Theseus, and drags him off to the King’s Palace. 
The King, of course, is delighted to see Theseus. So 
delighted, in fact, that he pulls out all the stops and 
orders a State Banquet be prepared in the field right 
out in front of the Labyrinth. But once dinner is 
ready, the platoon shows up again while the Great 
High Priest Mumbo-Jumbo explains the fate that has 
befallen Theseus: he’s about to become bull fodder. 
Our Hero mutters the ancient Greek equivalent of 
“Sure, no sweat, baby!’’ before he grabs his pack 
and marches off through the great front doors of the 
Labyrinth. This is what he does: 


Original maze: x * x &* kK OK KOH KOK & 
re. 2 ee @ 
re 2 ee a re 
KKK KK KR KKK 
ECs ke’ Es RE 
RHO KERK, KKK 
Pe ERE. ERE ES 
Rea BERS & ee 
RR KKK OK ROR 

Figure 1: The Labyrinth 

period = passageway 

star = wall 

M = Minotaur 

Theseus is a jerk. The Minotaur lives. 

Here is where he went: ok ¥ kK KKK KK KK KY 

Kk KK EE EE RE 
KRM KEKE HK 
RK KE KEK KE 
KARE EERE KE KE 
KR KK KE EK KE 
++ RR + tO RK RE 
KEKE RK KE EEK 
KERR EK EERE EE 


Figure 2: Labyrinth after the first search 
plusses indicate where Theseus checked. 


Theseus comes out of the maze, squinting in the 
sunlight. A roar from the angry crowd washes over 
him. The High Priest explains that the Minotaur 
must be either slain or fed. To emphasize his point, 
the Minotaur gives a big roar from inside the 
labyrinth! This sends the crowd scattering and leaves 
Our Hero quavering in his sandals. Mustering up his 
courage, once more he enters the labyrinth. While he 
wasn’t looking, the Minotaur moved some of the 
walls around, so now he’s just as lost as the first time 
he went in. Here’s what happens this time: 


Original maze: >. ¥ * . kK XK RK KK KX 
poe ee KK KK, KK, 
KEKK KR. KKK. 
Kee KKK, KKK 
Ke KK. KKK 
Ke KK KKK, KKK 
Ke ee KK KEK. OK, 
KEK. CMH KR. eK 
KK KKK KK. KK KK 

Figure 3: The re-arranged Labyrinth. 


Theseus has slein the Minotaur 
Here is where he went! 
KEKE KKK KK KEK 

t+ tte kK e+ OK KE 
KKK KE KKK + HH 

TT K+RKK+ KE KY 

THT KK+ +R KEE 

KTR KEK KR ERK E 

KH, TT RK KK EKG 

KEY. TUWUKKE HHH 

KER KEK KE HK KX 

Figure 4% Theseus’ trail owt of the Laberin 


Well, the Minoans are just delighted! They make 
Theseus a Prince of the Realm, heap rewards on him, 
and throw a huge party in his honor. Many of the 
guests want to know how he did it, but Theseus 
keeps on saying ‘‘Aw, shucks, it was nothing..’’. 
Finally the King comes over; he’s dying of curiosity 
too. So Theseus stoops over and draws the following 
program in the sand: 
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THEORY OF OPERATION 


This is a maze search program writ- 
ten in Standard Pascal for the Apple 


program maze; 


II. It does not use any of the special const m= 9; (* rows in maze *) 
y P' 
Pascal functions unique to UCSD ml = 10; (* rows + 1 i) 
Pascal, therefore it should be por- m2 = 11; (2 rows +> 2.7) ‘ 
able to other Pascal machines Bes Een (= -covunne: #0, maze) 
ta : : ail nl = 13; (* columns + 1 *) 
The labyrinth is read into an ar- Ag = las (* columns + 2 *) 
ray, the size of which is set by the 
constants M & N. In the array a ‘*’ : i 
indicates wall, a ‘.’ indicates type stackptr = “thissquare; (* pointer to stack nodes *) 
psgenay a+ mans weve See er 
been on that passage before, and ‘M’ west, northwest); (* legal directions *) 
means Minotaur. The labyrinth is thissquare = record (* one stack node *) 
placed in an array surrounded by a row : integer; Ne row in maze *) é 
circle of spaces and a circular wall. Sora 3 poechee Senet Rabe a) 
Sorat ak ate So be cco a ooking irection; 
By placing Theseus inside this circle string : stackptr (* pointer to next node *) 
of sentinels, he can search out the ena: 
entrance to the maze in the same map = array [-l..m2,-l1..n2] of char; (* Theseus's world *) 
way as he searches the maze. The vitality = (alive,dead); (* states of existence *) 
search itself is straightforward. At validmove = -l..1; _(* a range for indexing *) 
any given square Theseus looks index = array [north..northwest] of validmove; 
h table = record (* array of indexes *) 
north, and then on around the com- 3 
5 e hmove : index; 
pass. He takes the first available vmove : index 
passageway that he hasn’t taken end; 
before. If there’s no passage, he markers = set of char; (* used for input testing *) 
back’s up until he finds one or gets 
back to his starting point. Theseus Sax meee! ROCHE (* the labyrinth *) 
himself is merely a stackpointer. He Theseus : stackptr; (* top of stack = Our Hero *) 
points to the end of his string, which Minotaur : vitality; (* how's the beast feeling? *) 
is really the stored information on compass : table; (* look-up table of moves *) 
the status of each point he has done : boolean; (* flag for exit display *) 
traversed. To advance, a new node is 
pushed onto the stack, while retreat 
is performed by a pop. When the 
stack is empty, Theseus is back out- 
side the maze. If Theseus finds the 
Minotaur he will slay him (M 
becomes W), and leave his string 
behind (a trail of ‘T’s). 
procedure ARRAYSTART (var maze:map; var compass:table); 
var i: integer; (* iteration variables *) 
j : integer; 
dad: direction; 
begin 


is put in. The array is larger 
than the maze will be. The extra 
room, two squares on all sides, are 
the sentinels which are used to 

arch for entrances. The compass 
initialized as a look-up for moving 
an indicated direction. 


(* initialize the labyrinth *) 
for i := -l to m2 do 
begin 
for j 
begin 
maze[i,j] := 
if (i=-1) or 


-1 to n2 do 


end 
end; 


(* now set the compass *) 
with compass do 


begin 
for d := north to northwest do 
begin 
if (d=east) or (d=west) then vmove[d] 
else if (d>east) and (d<west) then vmove[d] : 
else vmove[d] := -1; 
if (d=north) or (d=south) then hmove[d] 
else if (d<south) then hmove[d] 1 
else hmove[d] := -1 
end 
end 


(* set to dots *) 


1) or (i=m2) or (j=n2) then maze[i,j] 


(* sets walls to 


:= 0 


ar *) 
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procedure PRINTMAZE (maze:map); 


var i: integer; (* iteration variables *) 
: integer; 


Printmaze steps through the two- 
1 to m do dimensional array containing the 
maze and prints out its contents 
normal operation the sentinels 
omitted, but that may be changed by 
placing the appropriate values into 
the for-loops. 


In 
are 


1 to n do write (maze[i,j], ' '); 


procedure READMAZE (var maze:map); 


var i integer; (* iteration variables *) 
j integer; 
x 2 char; (* scratch for input *) 
legals : markers; (* set of legal inputs *) 
begin 
legals [id arama ee (* what's allowed on input *) 
for i 1 to m do 
begin 
Ee ae 1 to n do Readmaze is the general input 
od tects routine which gets the maze from the 
if x in legals then maze [i,j] := x keyboard. This particular version 
else maze [i,j] :='.' shows the deficiencies of Standard 
end; Pascal. No string hadling is allowed, 
fe readin therefore the data must be read in 
en » character at a time. The lac’ f 
ena one character at a time. The lack of 


string handling also makes elegant 
user prompting difficult. If the maze 
is not found in the proper format (eg 
m lines of n chars) then the program 
will terminate with a run-time error. 
Erroneous characters in the data will 
be turned into passageways (‘.’). 


procedure POP" (var Theseus:stackptr); 


var p : stackptr; (* scratch pointer *) 
This procedure Pop’s a node off the . 
stack. In effect this moves Theseus begin . 7 ’ F 
backore square. if underflow, then Bs Theseus = nil then writeln ('UNDERFLOW ON STACK') 
procedure returns with no change, it ° Beg tay 
just prints an error (he’s at end of p := Theseus; 
the trail... Theseus := Theseus*.string; 

dispose (p) 
end 
end; 


procedure PUSHON (var Theseus:stackptr; var maze:map; compass:table); 


(* scratch pointer *) 


var p : stackptr; 
begin = 
new (p); Procedure PUSHON pushes 
with Theseus” do Theseus’s current location onto the 
began , stack, saving his current coordinates 
p*.row := row + compass.vmove [looking]; 1 the direction: he Wwasdeok 
p*-column := column + compass.hmove [looking]; ‘ane theigirechon. Ne: wasiigo sms: 
end; Then it moves Our Hero onto the 
p*-looking := north; next square in the direction he w: 
p> .string Theseus; looking and set's that to a‘ +’ in the 
Theseus += pi maze (drops a pebble) before return- 


nigease 


maze [Theseus*.row, Theseus*.column] 


ing to the calling routine. 
end; is gs 
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procedure SEARCH (var Theseus:stackptr; var maze:map; var minotaur:vitality; 
compass:table); 


var tr : integer; (* temp row *) 

te : integer; (* temp column *) 

seewhat : char; (* what he finds *) 

legals : markers; (* what he's allowed to see *) 

begin 5 a 

re Cte tt Mads 
Pronedore: Searchlhag Theseustook Legevs se EUS yoy Ma eds Gr nghisie hie may eet 
around him to see what’s there. begin 
Depending on what he finds, he then tr := compass.vmove [looking] + row; (* figure where he's *) 
takes appropriate action. If he finds ra := compass.hmove [looking] + column; (* looking *) 
se allewal ebararer henall ete end; 
an illegal character he will get con- Pe ere eee dha, Bescece: GiB) 
fused and go back out to the en- if seewhat in legals then 
trance for instructions. Otherwise he begin 
starts looking north and takes the if seewhat = '+' then seewhat := '*'; (* where he's been is same *) 
first passageway he finds. If he finds é (* as a wall: can't go there *) 

> Minotaur he will, of course case seewhat o 

Fike, Sard tesecienn, amoeba ‘1; 4f Theseus” looking = northwest then POP (Theseus) 
cae St else Theseus*.looking := succ (Theseus”. looking); 
passage and no Minotaur, then he (* that was a wall or someplace he's been before *) 
figure’s he’s at a dead-end and 
retreats. Once the search for this par- aren PUSHON (Theseus,maze,compass); (* a passage! *) 


ticular square is over, the procedure 


atigaateNs Callen begin (* fight the Minotaur! *) 
returns to its caller, Oe eaae = gendy 
maze [tr,tc] := 'W' (* it keels over... *) 
end 
end 
end 
else 
begin 


writeln ('What is that?'); 
POP (Theseus) 
end 
begin end; 


(* Initialize *) 
done := false; 
ARRAYSTART (maze,compass) ; 
new (Theseus); 
with Theseus* do 
begin 
row := 
column 
looking 
string 
end; 
PUSHON (Theseus, maze, compass); 
READMAZE (maze); 
writeln; 
writeln (‘Original maze: '); 
PRINTMAZE (maze); 


* start out, lst push moves to 0,0 *) 


east; 
nil 


Here’s the main program... 


(* now go chase Minotaurs *) 


repeat 
begin 
if Minotaur = dead then with Theseus*® do 
begin 
if (row<l) or (row>m) or (column<1) or (column>n) then 
done := true; 
if not done then 
begin 
maze [row,column] := 'T! (* leave string *) 
end; 
POP (Theseus) 
end 
else SEARCH (Theseus, maze, Minotaur, compass) 
end 
until Theseus*.string = nil; 
writeln; 


if Minotaur = dead then writeln (‘Theseus has slain the Minotaur’) 
else writeln ('Theseus is a jerk. The Minotaur lives.'); 

writeln (‘Here is where he went:' 
writeln; 

PRINTMAZE (maze) 


end. © 
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a 16CC DECQ Syntax error exit 
Some routines | 8s 
1713 DF10 Set up function references 
1752 DF4F Perform OR, AND 
1768 DF65 Perform comparisons 
17D0 DFCD Perform PDL 
17DC DFD6 Perform DIM 
17E6 DFE3 Get variable name, location 
e 4H Hey EOED Setup array pointer 
4 ‘ 18FB E102 Evaluate integer expression 
asic Jim Butterfield, Toronto 1917 E11E Find or make array 
: ‘ e we F 1AD7 E2DE Perform FRE, and: 
Routines were identified by examining specific JAEB E2F2 Convert fixed-to-floating 
memory dumps. There may well be other versions of 1AF8 E2FF Perform POS 
Basic; the user is urged to exercise caution. 1AFF E306 Check not Direct 
i . 1BOC E313 Perform DEF 
The addresses given identify the start of the area 1B3A E341 Check FNx syntax 
in which the described routine lies. This may not be 1B4UD E354 Evaluate FNx 
the proper program entry point or calling address. IBBE E3C5 Perform STR$ 
1BCC E3D5 Do string vector 
ot ore 1BDE E3E7 Scan, set up string 
DISK ROM Description 1C49 E452 Build descriptor 
0800 DOOO Action addresses for primary 1C7B E484 Garbage collection 
keywords 1D8E E597 Concatenate 
0880 DO80 Action addresses for functions 1DCB E5D4 Store string 
08B2 DOB2 Hierarchy and action addresses for 1DF4 E5FD Discard unwanted string 
operators 1E2C £635 Clean descriptor stack 
08DO0 DODO Table of Basic keywords 1E3D E646 Perform CHR$ 
0A60 D260 Basic messages, mostly error messages 1E51 E65A Perform LEFT$ 
0B65 D365 Search the stack for FOR or GOSUB 1E7D E686 Perform RIGHT$ 
activity 1E88 E691 Perform MID$ 
0B93 D393 Open up space in memory 1EBO E6B9 Pull string data 
OBD6 D3D6 Test: stack too deep? 1ECD E6D6 Perform LEN 
OBE3 D3E3 Check available memory 1ED3 E6DC Switch string to numeric 
0C10 D410 Send canned error message, then: 1EDC E6E5 Perform ASC 
OC3C D43C Warm start; wait for Basic command 1EEC E6F5 Get byte parameter 
OC5C D45C Handle new Basic line input 1EFE E707 Perform VAL 
ODOF D50F Rebuild chaining of Basic lines 1F3D E746 Get two parameters for POKE or WAIT 
OD2E D52E Receive line from keyboard 1F49 E752 Convert floating-to-fixed 
0D59 D559 Crunch keywords into Basic tokens 1F5B E764 Perform PEEK 
OE1A D61A Search Basic for given line number 1F72 E77B Perform POKE 
OE49 D649 Perform NEW 1F7B E784 Perform WAIT 
OE6A D66A Perform CLEAR 1F97 E7AO Add 0.5 
OE99 D697 Reset Basic execution to start 1F9E E7A7 Perform subtraction 
OEA7 D6A5 Perform LIST 1FBO E7B9 Perform addition 
OF68 D766 Perform FOR 2095 E89E Complement accum#1 
102A D828 Execute Basic statement 20CC E8D5 Overflow exit 
104B D849 Perform RESTORE 20D1 E8DA Multiply-a-byte 
1070 D86E Perform STOP or END 210A E913 Constants 
1098 D896 Perform CONT 2138 E941 Perform LOG 
10B2 D8BO Perform SAVE 2179 E982 Perform multiplication 
10CB D8C9 Perform LOAD 21DA EQ9E3 Unpack memory into accum#2 
1114 D912 Perform RUN 2205 EAOE Test & adjust accumulators 
1123 D921 Perform GOSUB 2222 EA2B Handle overflow and underflow 
1140 D93E Perform GOTO 2230 EA39 Multiply by 10 
116D D96B Perform RETURN/POP, then: 2247 EA5O 10 in floating binary 
1197 D995 Perform DATA: skip statement 224C EA55 Divide by 10 
11A5 D9A3 Scan for next Basic statement 2257 EA60 Perform divide-by 
11A8 D9A6 Scan for next Basic line 225D EA66 Perform divide-into 
11CB D9C9 Perform IF, and perhaps: 22FO EAF9 Unpack memory into accum#1 
11DE D9DC Perform REM: skip line 2315 EB1E Pack accum#1 into memory 
11EE D9ED Perform ON 234A EB53 Move accum#2 to #1 
120E DAOC Input fixed-point number 235A EB63 Move accum#1 to # 
1248 DA4Y6 Perform LET 2369 EB72 Round accum#1 
12D1 DACF Perform PRINT 2379 EB82 Get accum#1 sign 
133D DB3A Print string from memory 2387 EB9O Perform SGN 
135A DB57 Print single format character 2346 EBAF Perform ABS 
1374 DB71 Handle bad input data 23A9 EBB2 Compare accum#1 to memory 
13A3 DBAO Perform GET 23E9 EBF2 Floating-to-fixed 
13B5 DBB2 Perform INPUT 241A EC23 Perform INT ; 
13E5 DBE2 Perform READ 2441 EC4YA Convert string to floating-point 
14E2 DCDF Canned Input error messages 24CC ECD5 Get new ASCII digit 
14FC DCFQ Perform NEXT 2501 EDOA Constants 
1558 DD55 Check type mismatch 2510 ED19 Print IN, then: 
157E DD7B Evaluate expression 2517 ED20 Print Basic line # — oe 
16B5 DEB2 Evaluate expression within parentheses 252B ED34 Convert floating-point to ASCII 
16BB DEB8 Check parenthesis, comma 265B EE64 Constants 
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2684 EE8D Perform SQR 2A69 F262 Perform SPEED= 
268E EE97 Perform power function 2A74 F26D Perform TRACE, NOTRACE 
26C7 EEDO Perform negation 2ATA F273 Perform NORMAL, INVERSE 
26D2 EEDB Constants 2A87 F280 Perform FLASH 
2700 EFO9 Perform EXP 2A8D F286 Perform HIMEM: 
2753 EF5C Series evaluation 2AAD F2A6 Perform LOMEM: 
279D EFA6 RND constants 2AD2 F2CB Perform ONERR: 
27A5 EFAE Perform RND 2B1F F318 Perform RESUME 
27E1 EFEA Perform COS 2B38 F331 Perform DEL 
27E8 EFF1 Perform SIN 2B8C F390 Perform GR 
2831 FO3A Perform TAN 2B95 F399 Perform TEXT 
285D F066 Constants 2B9B F39F Perform STORE 
2895 FO9E Perform ATN 2BB8 F3BC Perform RECALL 
28C5 FOCE Constants 2BD4 F3D8 Perform HGR2, HGR 
2902 F10B CHRGET sub for zero page 2COD F411 Varous graphics subroutines 
291F F128 Basic cold start 2EE5 F6E9 Perform HCOLOR= 
29DC F1D5 Perform CALL 2EFA F6FE Perform HPLOT 
29E5 FIDE Perform IN# 2F1A F721 Perform ROT= 
29EC F1E5 Perform PR# 2F20 F727 Perform SCALE= 
2A2C F225 Perform PLOT 2F62 F769 Perform DRAW 
2A39 F232 Perform HLIN 2F68 F76F Perform XDRAW 
2A48 F241 Perform VLIN 2F6E F775 Perform SHLOAD 
2456 F24F Perform COLOR= 2FEO F7E7 Perform HTAB 
2A5D F256 Perform VTAB 
Hex Decimal Description 
eso oooD 13 Search character 
OOOE 14 Scan-between-quotes flag 
OOOF 15 Input buffer pointer; # of subscripts 
memo 0010 16 Defa ult DIM flag 
0011 17 Type: FF=string, 0O=numeric 
0012 18 Type: 80=integer, O0=floating point 
0013 19 Flag: DATA scan; LIST quote; memory 
map 0014 20 Subscript flag; FNX flag 
0015 21 O=INPUT; $40=GET; $98=READ 
0016 22 Comparison Evaluation flag 
0024 36 Position on print line 
0050-0051 80-81 Integer value (for GOTO etc) 
0052-0054 82-84 Pointers for descriptor stack 
0055-005D 85-93 Descriptor stack(temp strings) 
005E-0061 94-97 Utility pointer area 
0062-0066 98-102 Product area for multiplication 
0067-0068 103-104 Pointer: Start-of-Basic 
0069-006A 105-103 Pointer: Start-of-Variables 
006B-006C 107-108 Pointer: Start-of-Arrays 
006D-O006E 109-110 Pointer: End-of-Arrays 
006F-0070 111-112 Pointer: String-storage(moving down) 
0071-0072 113-114 Utility string pointer 
0073-0074 115-116 Pointer: Limit-of-memory 
0075-0076 117-118 Current Basic line number 
0077-0078 119-120 Previous Basic line number 
0079-O07A 121-122 Pointer: Basic statement for CONT 
007B-007C 123-124 Current DATA line number 
QO7D-O07E 125-126 Current DATA address 
0O7F-0080 127-128 Input vector 
0081-0082 129-130 Current variable name 
0083-0084 131-132 Current variable address 
0085-0086 133-134 Variable pointer for FOR/NEXT 
0087-008F 135-143 Work area, pointers, etc 
0090-0092 144-146 Jump vector for functions 
0093-009C 147-156 Misc numeric work area 
009D 157 Accum#1: Exponent 
OO9E-00A1 158-161 Accum#1: Mantissa 
OoA2 162 Accum#1: Sign 
O0A3 163 Series evaluation constant pointer 
OOAY 164 Accum#1 hi-ordeer (overflow) 
OOA5-OOAA 165-170 Accum#2: Exponent, etc. 
OOAB a a Sign comparison, Acc#1 vs #2 
OOAC 172 Accum#1 lo-order (rounding) 
OOAD-OOAE 173-174 Series pointer 
00B1-00C8 177-200 CHRGET subroutine; get Basic char 
OOB7 183 Sub entry: get prev character 
OOB8-00B9 184-185 Basic pointer (within subrtn) 
0O0C9-O0CD 201-205 Random number seed. 
0200-02FF 512-767 Input buffer 
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Exciting, entertaining software for the Apple II and Apple II Plus® 


If you liked “Invaders”, you'll love ASTEROIDS IN SPACE by Bruce Wallace. Your space ship is traveling in the middle of a shower of asteroids. Blast the asteroids 
with lasers, but beware — big asteroids fragment into small asteroids! The Apple game paddles allow you to rotate your space ship. fire its laser gun, and give it 
thrust to propel it through endless space. From time to time you will encounter an alien space ship whose mission is to destroy you, so you'd better destroy it first! 
High resolution graphics and sound effects add to the arcade-like excitement that this program generates. Runs on any Apple Il with at least 32K and one 


disk drive 


On diskette — $19.95 


FRACAS™ by Stuart Smith. A fantastic adventure game like no othe 

— up to eight players can participate in FRACAS at the same time 
Journey in the land of FAROPH, searching for hidden treasure while 
warding off all sorts of unfriendly and dangerous creatures like the 
Ten Foot Spider and the Headless Horseman. You and your friends 
can compete with each other or you can join forces and gang up on 
the monsters. Your location is presented graphically and sound 
effects enliven the battles. Save your adventure on diskette or 
cassette and continue it at some other time. Requires at least 32K 
of RAM Cassette: $19.95 Diskette: $24.95 


BATTLESHIP COMMANDER™ by Erik Kilk and Matthew Jew. A game 
of strategy. You and the computer each start out by positioning five 
ships of different sizes on a ten by ten grid. Then the shooting starts. 
Place your volleys skillfully — a combination of logic and luck are 
required to beat the computer. Cartoons show the ships sinking and 
announce the winner. Sound effects and flashing lights also add to 
the enjoyment of the game. Requires at least 32K of RAM 
tte: $14.95 Diskette: $19.95 


over $19 to compensate for phone c 
SHIPPING CHARGES: Within North 


from orde 
6% sale 


FASTGAMMON™ by Bob Christiansen 
Sound, hi res color, and cartoons have 
helped maked this the most popular 
backgammon-playing game for the 
Apple Il. But don’t let these entertaining 
features fool you — FASTGAMMON 
plays serious backgammon. Requires at 
24K of RAM 
e $19.95 


Diskette $24.95 


he address abov 


QUALITY SOFTWARE 


6660 Reseda Bivd., Suite 105, Reseda, CA 91335 


WHERE TO GET IT: Call us at (213) 344-6599 for the name of the Quality Software dealer nearest you If ne 
may order directly from us. MasterCharge and Visa cardholders may place orders by telephone and we 
Or mail your order t 
rica orders must include 
Outside North America the charge for airmail shipping and handling is $5.00 — payabl 


California r 
§ shipping 
in US. curre: 
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Designing 
Your Own 
Atari Graphics 
Modes 


Craig Patchett 
Program Design, Inc 
1] Ider Court 
Greenwich, CT 06830 


The graphics modes that Atari supplies with their 
400 and 800 computers are nice, but what if you 
want a little more? For example, how about a large- 
type heading, with a smaller-type sub-heading below 
it, all over a graphics display? Terrific, you say, but 
you’re not an Atari engineer? Don’t worry about a 
thing. With this article, a little concentration, and 
some time in front of the keyboard, you'll have Atari 
graphics modes performing at the snap of your 
fingers. 

First, a simple explanation of what we’ll be do- 
ing. In a series of memory locations deep inside your 
Atari rests a special list of numbers that tell the com- 
puter which graphics mode it’s in. Each time you 
change graphics modes, this list also changes. But 
wait a minute. Why a list of numbers instead of just 
one? Because there is one number for each graphics 
row on the screen. For example, in graphics mode 
2 +16 (no text window) there are twelve graphics 
rows, so there would be twelve numbers in the list. 
For graphics mode 7 + 16, there would be ninety six 
rows, or ninety six numbers. The table labeled 


Modes and Screen Formats in your Atari BASIC 
reference manual shows the number of rows in each 
graphics mode. We'll be referring to it again later. 

As I said before, when you change graphics 
modes, using the GRAPHICS command, the list 
changes. It may become longer or shorter, depending 
on the mode, and the numbers in it will change. But 
the numbers will all be the same. Obviously, since 
they stand for the graphics mode of each row on the 
screen, if half of them were one number and the 
other half another, then half of the screen would be 
one mode and the other half another. This is not 
how Atari BASIC was designed. It is, however, what 
we want. So what we’re going to be doing is chang- 
ing the numbers in the list to make the screen behave 
the way we want it to. Let’s take a look at exactly 
how it’s done. 

How Much of Each Mode Should I Have? 

The first thing we have to do is figure out exactly 
how we want the screen to look. Let’s take the exam- 
ple from the beginning of the article-a large-type 
heading (mode 2), with a smaller-type sub-heading 
below it (mode 1), all over a graphics display (mode 
3). Unfortunately, we can’t just decide to have, for 
instance, four rows of mode 2, two rows of mode 1, 
nd nine rows of mode 3. There’s a simple rule we 
have to follow in deciding how many rows of each 
mode we’re going to have. 

You may already know that your television pic- 
ture is made up of hundreds of little lines going 
across the screen from top to bottom (if you don’t 
you know now!) If you look closely at the screen, you 
can probably see them. These lines are formed by a 
single beam of light that scans the screen very quick- 
ly (sixty times a second) to make the picture, so we’ll 
call them scan lines. The part of the screen that your 
Atari lets you use for graphics has 192 of these lines. 

Each graphics row is a certain number of scan 
lines ‘‘high’’. In mode 1, for example, each row is 
eight scan lines high. If you look at the Table of 
Modes and Screen Formats that I mentioned 
before, you’ll see that there are twenty-four rows in 
mode 1 (remember, we’re only interested in ‘‘full 
screen’’). Surprise! Twenty-four rows, each eight 
scan lines high, means 8 x 24 = 192 scan lines in 
all. To figure out how many scan lines high the rows 
in other modes are, just look at the table and divide 
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192 by the number of rows in a full screen. 

The reason we need to know all this is because 
we must make our new mode so that it has a total of 
192 scan lines. No more, no less. This means you 
have to do a little bit of juggling around with the dif- 
ferent modes you want to use, but it’s really not all 
that difficult. I'll demonstrate with our example. 
Let’s suppose we need three rows of mode 2 and two 
rows of mode 1. All we need to do is figure out how 
many rows of mode 3 we should have to make a total 
of 192 scan lines. We look at the table and figure out 
that in mode 2, each row is sixteen (192 scan lines/12 
rows) scan lines high. Since we want three rows of 
mode 2, that makes fourty-eight scan lines so far. 
Similarly, we want two rows of mode 1, which uses 
eight (192 scan lines/24 rows) scan lines for each 
row. So that makes another sixteen scan lines, or 
sixty-four all together, which leaves us 192 - 64 = 
128 scan lines still left over. We'll use these for mode 
3. We look at the table again and see that mode 3 
uses eight scan lines for each row also, so how many 
rows do we need? 128 leftover scan lines/8 scan lines 
per row of mode 3 = 16 rows of mode 3. 

So now we know that our graphics mode is going 
to have three rows of mode 2, two rows of mode 1, 
and sixteen rows of mode 3. Let’s tell the computer. 


How Do I Tell The Computer? 

We have to start by putting the Atari in a graphics 
mode it understands. Of course, we can’t use just 
any mode, but this time the rule is a lot easier. Out 
of the modes you’re going to be using, take the one 
that uses the most memory (look at the table under 
“RAM required’). In our example, mode 1 uses the 
most memory, so the first line in our program is: 


10 GRAPHICS 1 


The next step is to find out where the list of numbers 
begins. Since it isn’t always in exactly the same 
place, we must PEEK into the computer’s memory 
at two locations that tell us where it is. Since we’ll 
need to use the number that tells us where the list 
begins later, we’ll give it a name: 

20 BEGIN = PEEK(500) + PEEK(561)*256 + 4 


This line will always be the same no matter what 
modes you are going to be mixing. 

The third step can be ignored if the mode you 
want at the top of the screen is the same as the one 
that uses the most memory. If not, as in our example 
(mode 2 is at the top of the screen, mode 1 uses the 
most memory), then we have to change the number 
in the memory location right before the beginning of 
the list. The table below shows what number to use 
for the mode at the top of the screen. 

MODE 0 1 2 3 4 5 6 7 8 
NUMBER 66 70 71 72 73 74 75 77 79 
So, for our example, we would need: 


25 POKE BEGIN-1,71 


Remember, only do this step if the first graphics row 
is not the same mode as the one that uses the most 
memory. 

Now we just have to go down the list and 
change the numbers that need to be changed. The 
numbers for the graphics mode with the most 
memory are already correct, since we start in that 
mode. Therefore, all we have to change are the other 
numbers. In our example, that would be the 
numbers for mode 2 and mode 3. To make the 
necessary changes, we simply POKE BEGIN + row 
number with the correct number for the mode we 
want in that row. What are the correct numbers? 
Just subtract sixty-four from the numbers in the table 
I gave above. That would mean, for example, seven 
for mode 2, and eight for mode 3. So we have: 


30 POKE BEGIN + 2,7:POKE BEGIN + 3,7 


which takes care of mode 2. Note that we didn’t 
POKE BEGIN +1. This was automatically taken 
care of when we POKEd BEGIN-1 in line 25. 
Remember that we also don’t have to worry about 
the numbers for mode 1, since they are already cor- 
rect. Therefore, all that’s left is to change the 
numbers for mode 3. Since we want sixteen rows of 
mode 3, which means changing sixteen numbers, 
we'll use a FOR/NEXT loop to make life easier: 

40 FOR ROW =6 TO 21:POKE BEGIN + ROW, 

8:NEXT ROW 

Now the list has the correct mode numbers in it. 
There’s still one more thing we must do. Since there 
may be a fewer number of rows now than there were 
in the mode we told the computer to start with, we 
have to tell the computer where the new end of the 
list is. We do this by POKEing the number sixty-five 
into the row number right after the last one we used. 
This tells the Atari to go back to the beginning of the 
list. We also tell it where the beginning is. For our 
example: 
50 POKE BEGIN + 22,65:POKE BEGIN + 23, 
PEEK(5 60):POKE BEGIN + 24, PEEK(561) 
And now we’re done. Note that the only changes 
that you would need to make in line 50 when design- 
ing your own modes is in the numbers 22, 23, and 
24, These are just the three row numbers after the 
last one you use on the screen. 
How Often Do I Have To Do All This? 
This whole procedure must be repeated whenever 
you want to use a specially designed graphics mode. 
You can’t skip any of the steps except for the third 
one, and then only under the condition I already 
described. 
So Now What Do I Do? 
The last thing I’m going to cover, briefly, in this ar- 
ticle is how to print and draw in your new mode. 
This only applies if the row you want to print or plot 
on is within the normal range for whatever mode it 
is. In simpler terms, if we had put the sixteen rows 
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The ATARI® Tutorial 


GMPUTER Calligraphy? 


FO N I'TEDIT Well, not really! But with the FONTEDIT program in IRIDIS #2 
; you can design your own character sets (or fonts) for the 
ATARI. For example, you can create a Russian alphabet, or 


FONTEDIT APL characters, or even special-purpose graphics symbols. 


These special fonts can be saved on disk or tape for later use 
by your programs. FONTEDIT is a friendly, easy-to-use 
( 2 
FO OC. y é) DD TF F program: just grab a joystick and start designing. 


With our KNOTWORK program, you can design patterns of 
Celtic interlace, (a technique used by 7th century Irish monks 
to illuminate manuscripts). After you have produced a pretty 
pattern on the screen of your ATARI, you can save it on disk or 
tape. As you might expect, KNOTWORK uses custom graphics 
characters that were created with FONTEDIT. 


CAI 


CRO KA RAN KLARA 
EALISSIS ESSN 
| Knotwork } 

CORN KARMA LR KL 
VWIAICIIOZSS 


WA 


FONTEDIT and KNOTWORK are available now in IRIDIS #2, the second of our ATARI tutorial program packages. 
You get a C-30 cassette or an ATARI diskette with our excellent programs ready to load into your ATARI. Best ofall, 
IRIDIS #2 comes with a 48-page User's Guide, which gives clear instructions on how to use the programs. The 
Guide also provides detailed, line-by-line descriptions of how the programs work. (IRIDIS programs are written to 
be studied as well as used.) Our Hacker's Delight column explains many important PEEK and POKE locations in 
your ATARI. 


The User's Guide also includes Novice Notes for the absolute beginner. We don't talk down to you, but we do 
remember how it feels to be awash in a sea of bytes and bits and other technical jargon. If you are new to 
programming, IRIDIS is one of the easiest ways you can learn how to get the most out of your ATARI. If youarean 
old hand, you'll be delighted by the technical excellence of our programs. (We are the people who have published 
CURSOR for the Commodore PET since July, 1978.) 


ATARI is a trademark of ATARI, Inc. 


ORDER FORM 


IRIDIS #2 - Fontedit and Knotwork 
O $15.95 Cassette QO $18.95 Disk 


= 
-— 


Published By: 


The Code 
__ Works: 


Box 550 

Goleta, CA 93017 
805-967-0905 

Dealer Inquiries Invited 


IRIDIS #1 - Clock, Zap, Logo, Polygons 
O $9.95 Cassette O $12.95 Disk 


Name ——— 


City — State. Zip 


O Visa O MC Card No 


Expires _ — = Signature 


IRIDIS requires 16k for cassette, 24k for disk. 


Poeeesesses cesses ssssessss==s= 
‘Se em a a SS 
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of mode 3 at the top of the screen, and mode 2 at the 
bottom, then mode 2 would have been in rows 19,20, 
and 21. But mode 2 usually only has twelve rows, so 
if you tried to print on line 19 you would get an er- 
ror message. Now, there is a way around this, but 
it’s somewhat complicated so I’m going to leave it 
for a future article. For now, however, you can use 
the following rules as long as you stay within the 
normal range of the mode you’re working with. 

The first thing you have to do is POKE location 
eighty-seven with the number of the graphics mode 
for the row you want to PRINT or PLOT in. Next, 
POSITION the cursor and PRINT, or PLOT and 
DRAWTO. When you tell the Atari to POSITION 
X,Y or PLOT X,Y, the X value is still the number 
of spaces in from the left that you want to go. The Y 
value is still the number of rows down from the top 
that you want to go, but you may have to experi- 
ment with different values to get it exactly where you 
want it. Just make sure that you remember to POKE 
87 with the mode number you're going to PRINT or 
PLOT in. 

To help you understand what I just said, and to 
show off the example mode we’ve been working on, 
try entering these lines, as well as the other ones that 
are included throughout the article. When you’ve 
entered them in, just RUN the program, and BREAK 
it when you’re done. Notice that the commands for col- 
ors are the same in the new mode; that is, you can still 
print different color letters and use the COLOR com- 
mand for graphics points, etcetera. The one difficulty 
that might arise is when you mix mode 0 with other 
modes. Since mode 0 has a different background color 
(blue) than the other modes (black) you will have to use 
the SETCOLOR command to make the mode 0 rows 
invisible. Otherwise, you should have no problems 
whatsoever. 


é€8 SETCOL OR 4, a ; GROUND 

7a FOKE 3 4 6,8:PRINT #63 "THIS 
5": POSITICH 3,1: PR SIHT #63 "GRAPHICS MOO 

E":POSITICH §,2:PRIMT #6; "THO" 

8 PUKE 37. 1:PO! B.SPRINT #65 

is": FOSITICGN 1 glk PRI AT 36, "srarhics “od 


e one 
33 POKE 3 2 COLOR ik - FOR 
T 15,Li S: ORANTO 
HE:PLOT 2 TS DRA ra 

168 GOTO REM KEEP 


Look Ma, New Modes! 

That’s all there is to making your own graphics modes 
on your Atari computer. The easiest way to make sense 
of everything I’ve covered here is to experiment. Start 
off by changing the example program and watching 
what happens, and then try designing your own 
modes. Just a little practice and in no time you'll be an 
expert. Above all, have fun doing it; after all, the Atari 
works for you, not the other way around. 
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SOFTWARE FOR THE 


ATARI®400/800 


Quality Software™ offers important software to 
owners of ATARI 400 and 800 computers. All 
programs are on cassette. 


ASSEMBLER by Gary J. Shannon Create your own 6502 machine 
language programs with this easy-to-use in-RAM editor/assembler. Requires 
16K or more of RAM to operate. Look at all the features you get for less than 
$25! 

+ Insert, delete, edit source code lines 

+ Save source code on cassette 

+ Save object code (any part of memory) on tape 

+ Print out assemblies 

* View and modify memory 

* Pseudo Ops: ORG,OBJ,EQU,HEX,ASC,DA,DS,END 

* Printer and video control (PON,POF,VON,VOF) 

* All 6502 mnemonics plus BLT,BGE 

* Commenting allowed 

* Error checking 

* Documentation includes notes on interfacing 

machine language to BASIC 
* Price —$24.95 


6502 DISASSEMBLER by Bob Ajerce. This neat 8K BASIC program 
allows you to disassemble machine code and print out the disassembled 
listing. If you have more than 8K of memory, programs in RAM can be 
disassembled. Operating System ROM and the BASIC ROM can be 
disassembled on any size ATARI. Also works as an ASCII interpreter, 
translating machine code into ASCII characters. $11.95 


FASTGAMMON™ 

by Bob Christiansen The most popular 
backgammon-playing program for per- 
sonal computers is now available for 
the Atari This is the best-playing T Fy 
version so far, and includes the option 
to enter your own dice rolls. Set the 
display speed to your liking—play fast 
or slow. Beginners find.it easy to learn 
backgammon by playing against the computer, and even very good players 
will find it a challenge to beat FASTGAMMON. Includes 12 pages of 
instructions that include the rules of the game. Written in machine language 

Requires only 8K of RAM $19.95 


Myo? sense: 
Tw WOME: PLavER-© conmurte-e 


QUALITY SOFTWARE 


6660 Reseda Bivd.. Suite 105. Reseda, CA 91335 
Telephone 24 hrs., 7 days a week (213) 344-6599 


WHERE TO GET IT: Ask your nearest Atari dealer to see Quality Software's Atari 
programs. Or, if you prefer, you may order directly from us MasterCharge and 
Visa cardholders may telephone their orders and we will deduct $1 from orders 
over $19 to compensate for phone charges. Or mail your order to the address 
above. California residents add 6% sales tax. Shipping Charges: Within North 
America orders must include $1.50 for first class shipping and handling. Out 
side North America the charge for airmail shipping and handling 1s $5.00 
payable in U.S. currency 


ATARI 
Com 
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What To Do 
If You 
Don’tHave 
Joysticks 


Steven Schulman 


Use of joysticks with the ATARI computer can add 
excitement to your programs. But what do you do if 
you don’t have joysticks yet and aren’t ready to buy 
them? Are you out of luck? Do you have to type in 

numbers to select from a menu of answers? Does it 

mean you can’t use games like JRIDIS’ ZAP or the 

latest from your computing magazines? No! There’s 
another way. 

In amongst the bits and bytes that make up the 
memory of your ATARI, any time you press a key 
on your keyboard the value of the 764th word 
changes. By taking a peek at what number is there 
you can find out which key it was. Listing I shows 
you how to find out what the value will be when any 
key is pressed. Try running it and pressing different 
keys, shifted and unshifted, reverse video, etc. When 
you finish use the break key to stop the program. 

“How does this help solve my problem of not 
having joysticks?’’ you may ask. To see this you 
have to know what happens when you use the 
joysticks. If your program has a line I = STICK(1), 
the value of I will be one of 9 possible values depen- 
ding on the position of the joystick when that line is 
reached. The values will be 


14 
10 | 6 
SS 
———— [> 15 ——7 
a | s 
13 


11 


where the value of I = 15 means that the joystick is 
in the upright position. In addition, J = STRIG(1) 
will have a value J =0 if the fire button is pressed 


and a value of J = 1 if the fire button is not pressed. 

Returning to what we know about the value of 
the last key pressed, we found that the values for the 
arrows were: 

14 =7 
15 =6 
and the values for the shifted arrows were 

Shift = 78 Shift = 71 

Shift = 79 Shift = 70 
Finally, the value for the space bar is 33. 

We can therefore have the same results as we 
would get from using a joystick by using the arrows, 
shift arrows and space bar. The shift bar will be our 
firing button, the arrows will be the obvious up, 
down, left and right, and the shift up will be to the 
upper left, the shift down will be to the upper right, 
the shift left will be to the lower left, and the shift 
right will be to the lower right. Any other key or no 
key at all being pressed is equal to the joysticks being 
in an upright position. 

The routine in listing II will play the part of a 
joystick. After calling the subroutine the value of 1 
will be the same as would have been returned by I 
= STICK(1) and the value of J will be the same as 
what would have been returned by J = STRIG(1). 
When you do buy your joysticks, simply replace the 
subroutine call and remove the subroutine from your 
program. Happy computing! 

Listing I 

1001 = 
PLO? 1 
PRESSED 

120 POKE 764,255 : REM TELL THE COMPUTER 
THAT NO KEY WAS PRESSED 

130 FOR PAUSE 1 to 500 : NEXT PAUSE : REM 
SLOW DOWN THE MACHINE SO YOU CAN READ 
THE RESULTS 

140 GOTO 100 

Listing II 

100 JOYSTICK = 1000: REM LOCATION OF 
SUBROUTINE 

110 GOSUB JOYSTICK : REM CHEC 
120 ?*THE ‘JOYSTICK’ HAS VALU: 
130 ?‘‘THE ‘FIRE BUTTON’ HAS VALUE A 
140 FOR PAUSE = 1 TO 500 : NEXT PAUSE 
150 GOTO 110 

1000 REM JOYSTICK SUBROUTINE 

1010 I = PEEK (764) 

1020 J = 1 

1030 POKE 764, 255 

1040 IF I = 
1050 IF I 


now 


EEK (764) 
: REM PRINT THE VALUE OF THE KEY 


< THE ‘JOYSTICK’ 
I 


14: RETURN 


1060 IF I > I 

1070 IF I 70 THEN I : RETURN 

1080 IF I 15 THEN I = 13: RETURN 
I=9:R IRN 
= 11: RETURN 


= 10: RETURN 
1120 IF I = 3: = 15:J = 0: RETURN: 
REM FIRE B 
11301 = 15: RETURN () 
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Screen Print 
From Machine 
Language On 
The Atari 


Larry Isaacs 


If you are doing machine language programming on 
the ATARI, it can be very advantageous to know 
where some of the operating system subroutines can 
be found. I can provide you with only one at this 
time, but it’s one of the handier ones. This is the out- 
put subroutine for the Editor device. It accepts the 
full ATASCII character set, printing the displayable 
character on the screen, or executing the control 
characters. To use the routine, simply load the 
character into the accumulator and execute a JSR 
$F6A4 instruction. The only other fact needed is that 
the X and Y registers aren’t preserved by this 
subroutine. 

To illustrate the use of this subroutine, the 
DUMP program is provided. This program also il- 
lustrates one way of using machine language with 
BASIC. The program asks for starting and ending 
addresses, which should be given in hex. Then the 
requested memory is dumped on the screen by a 
machine language program executed by the USR 
command. 

Naturally, before the machine language can be 
executed, it must be placed in memory. This is done 
by the BASIC subroutine in statements 10200-10430. 
This subroutine loads machine code found in DATA 
statements, which begin at line 20000 in this pro- 
gram. The first thing the subroutine does is read the 
number of bytes in the machine language program. 

It then dimensions DYM$ to length 1 and an array 
called STORAGE of sufficient size to hold the 
machine code. 

The subroutine then starts reading the data as 
strings and POKEing the appropriate code. If the 
string read doesn’t start with a special character 
Ce een OES ae. Ore Sl? \ethenn the string is 
assumed to be two hex characters which are stored in 
the next available byte. If the string begins with a 

‘“*.”’, then the string is assumed to be a comment and 
is denioreds If it begins with an ‘‘*’’, the subroutine 
assumes the rest of the string is four hex characters 
which form a two byte address. This address is 


POKE’d low byte first, then the high byte. If the str- 
ing begins with a ‘‘ +’’, the rest of the string is 
assumed to be four hex characters which form a two 
byte displacement from the beginning location of the 
code. This displacement is added to the beginning 
location of the code to form a two byte address. This 
address is also POKE’d low byte first, followed by 
high byte. If the first character is an ‘‘ =’’, then the 
rest of the string is assumed to be a displacement as 
with ‘‘*’’. However, once the address is computed, 
the current poke location plus one is subtracted from 
this address to form a one byte displacement which is 
POKE’d into the next location. Finally, if the first 
character of the string is an ‘‘!’’, the subroutine stops 
loading machine code. The rest of the string is 
assumed to be a two byte displacement as with the 
““* and the computed address is checked with the 
current poke location to see if it matches. If they 
don’t match, it’s likely that you’ve miscounted some 
bytes and that some of the displacements given by 
strings starting with the ‘‘*’’ or ‘=’? character are 
in error. 

This may seem somewhat complicated, but it real- 
ly makes it fairly simple to write relocatable code. This 
relocability is necessary because you don’t know where 
the code will be loaded until the program is running. 
Relative addresses used by branch instructions may be 
given as a hex byte or as an ‘‘=’’ followed by the 
displacement from the beginning of the program. In- 
ternal absolute addresses should be given with a ‘‘ +” 
followed by the displacement. And finally, external ad- 
dresses can be specified by giving two hex bytes, or by 
an ‘‘*’’ followed by the address. 

Once the code is loaded, ADR(DMY$) gives the 
first location. This also happens to be the entry point of 
the machine language dump program. Now the dump 
routine can be executed by calling for the USR func- 
tion to be executed with ADR(DMY$) as its address. 
This is done on line 80 of the BASIC program. 

It is important to note that the dump routine can 
only be executed while the BASIC program is running. 
Trying to execute it by a direct command will not work 
because the direct command gets inserted in between 
the end of the program and where the machine code 
has been poked. This will cause the machine code to be 
moved; and since it contained some internal absolute 
addressing, it will not execute properly any more. If the 
code contains no internal absolute addressing, it can be 
executed by a direct command. 

The machine code is fairly simple, so you should 
be able to understand what it is doing. Upon entry, the 
machine code first checks to see if the right number of 
parameters are present. If not, the parameters are pull- 
ed off the stack and the program returns to BASIC. If 
the correct number (2) is present, the machine code will 
dump the requested memory, printing 8 bytes per line. 

Hopefully you will find some of the techniques us- 
ed in this program useful, as well as the program itself. 


ATARI 800" 
16-K Memory 
Expansion 
Board 


$179.95 


Plugs directly into the memory 
expansion slot in your Atari 

e Fully compatible with current 
hardware 

e Backed by a one-year 
warranty : 

e Inquire at your local Atari 
Dealer for this and other 


fine JACC, Inc. 
products 


. JACG, Inc. 
(Just Another Computer Company) 
543 West Golf Road 
Arlington Heights, IL 60005 


Dealer/Distributor Inquiries Invited 
Dealer Line: 312-364-6268 
On the west coast contact Micro Distribution, Inc. 
2612 Croddy Way, Santa Anna, CA 92704 714-641-0205 


is a trademark of Atari, Inc. 
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1 BIN SAS 43. EAS 4 38. IMP START 
16 GOSUB 1826 

PRIHT "INPUT STARTING ADDRESS"; 
INPUT Sat 

FRINT “INPUT EMOING ADDRESS"; 
INPUT EAs 

MORDS=SAS: GOSLE 1BiGa 

SAEMMORD 

MORDS=EAS = GOSUB 1818 

EA=HMORD 

DUMM'=USR¢ ADR DMY$ 3. SA. EAS 

GOTO 26 
19668 REN COMPUTE HBYTE FRO 
10818 I=1:G0SUB 1448: HeyT 
16826 I=2:GOSUIE 10845 :HEYTE 
16820 RETURN 
10846 X=ASC¢ HEX SC 
16856 IF “B'S =HEXS¢ 
3° THEN RETURN 


C PTR 
cat 


THD PHTP+1 


iin ag 


PRHYBLE 
#30F 


sgt a 
1 HEME TDs" 


#04 


we 


1e60 IF “A™ SHEMET. 1% AND HExS¢ 1, Tics" . #6. 
F" THEM X=%-7 -RETURH 
ieg7% STOP :REN ERROR . #28 
16166 REM CONPLITE HMGRD FROM WORDS sk OUTCHR 
16116 HEXS=HORDSC 1,2 9G05UB 18008: HIORD= 
NBYTERZ56 
16126 HEXS=WOROE! 3,43: GOSUB 16888: WORDS SEC 
HOR DANBYTE 420. LGA EA 
16129 RETURN SBC FNTE 
1@208 REM PUT THE CODE A Eat 
16218 READ HREM NUMBER OF BYTES “SBE FNTR+4 
lez DIM COOEF 465, HESS 25, WORDS 43, OMY RTS 
$01 3, STORAGE N6+1 3 
1623 FC=ADRC OMYS 3 HORD 
ige4e READ CODES 
1245 IF eek iis" ." THEM GOTO taeda fi , BYTE 
16254 t ee . 5 REM SieRT 
1668 DATA .038,68, . FLA 
16265 OATH .88231,F0,=0809. BEG ®t 
18276 i.1t36"! DATA 6833, 03, Be, CMP #62 
1026 HEYS=CODEE 1.23:G05 B4a DATA BW25. 3E. BEG! CONTINUE 
1ezo9 FORE PC. HBYTE: CATA .Saa7 TAX 
16204 WORDS=CODES 2,5 REM 23 
16326 DATA . oa PLA 
16316 WORDE=CODES¢ 2.5055 BH DATA a PLA 
=MIORO+ADR¢ Dit 4 OTG of oeEY 
16320 | BM DATA. 00,8838, ENE @3 
16338 F DATA S068, . RTS 
10344 REM CONT IMUE 
16355 Re PLA 
16360 NBY 85. Bi STA PHTR+4 
1837 BEST BS. FLA 
{W338 ct 7 4. Bbd2,55.04,. STA PATF: 
EM MBYTES HES VTE+256, 4 O44, 63, . PLA 
co wee 5.80, +682E. STA Efti 
2 GOSUE Laie BG. . PLA 
1 THEN RETLIRH STH EA 
2H5°@ OATA B40 65.98. LOA #E0L 
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{BASE 28. SF 6A4. ISR OQUTCHR 
é H24.. LOA #'$ 

4 WSS, 20, SF 6Ad. ISR QUTCHR 

AH .Ba56,45,05, . ; 

4 YS  FHOBA. 


C COUNT 
HE LOOP 
i OTSTPHTR 
DUNE 
A #E0L 
JSR OUTCHR: 


COMPUTE needs you! Let us know 
what interesting applications 
youre COMING 
| Atari 


_ Star Fleet to All 
Cruisers... 


Who’s the current champ of Star Raiders? Send 
in your best score, comments and playing strate- 
gies to COMPUTE, P.O. Box 5406, Greensboro, 
NC 27403. 

Aun: ‘‘Atari Gazette” 


software 


from the 
teenagers 
featuring sound 


authors of 
— Invitation to Programming 
exciting games 
and educational programs 
and 
and color graphics. 


for kids, 
adults 
available on 


guaranteed-to-load 
cassettes 
at fine 
computer dealers in your 
area or, 
write us directly for 


descriptive materials 
y ——S=| 


Program Design, Inc. 
Department CA 
11 Idar Court 
Greenwich, CT 06830 


203-661-8799 


re 
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Graphics Of 
Polar Functions 


Henrique Veludo 
353 West Sd6th Str. #116 
NYC NY 10019 


This program will plot polar functions such as roses, 
spirals, polygons, on the high resolution screen of the 
ATARI 800, with input from the programmer. The 
general equations for converting the polar coor- 
dinates to rectangular coordinates are as follows: 


cos0 = X = rcos0 


sin0 = y =rsinO 


First the program will display a function menu (line 
100), then ask the user to input which function to 
display, together with its parameters, INCR(ement) 
and SC(ale). The INCR(ement) is the interval in 
degrees that the computer uses to ‘‘increment’’ the 
angle T from 0 to 360 . One must decide whether 
the speed of execution or accuracy in plotting is 
preferable. A small INCR(ement), e.g. 0.1, will 
draw a very accurate graph very slowly. A larger IN- 
CR(ement), e.g. 5.0, will draw much faster and less 
accurately. An INCR of 1.0 is a good compromise. 
The SC(ale) is included to allow the graph to fill 
most of the screen. Without it, some functions will 
appear too small, others will be too large to plot. A 
SC(ale) between 10 and 100 should do for most func- 
tions. Lines 220 to 226 check for a 0 input that might 
confuse the program and display an error message. 
Line 230 asks if the x-y axes are to be displayed and 
lines 390-395 display them. Lines 300-370 will select 
random colors and intensities (with enough separa- 
tion to be visible). Lines 400-690 contain the calcula- 
tion and plotting routines for x,y. In line 410 the 
variable U is included for use with the spiral function 
and dictates how many revolutions the spiral will 
have; it can be changed at line 222. Line 420 con- 
verts degrees to radians (in this context the program 
seems to work better with radians but it could be 
converted to degrees, with the DEG function, and 
changing the values of the functions). Line 430 will 
direct the program to the proper function chosen in 
the input. Lines 610-620 calculate the x,y coor- 


dinates. Line 630 will check for an out-of-range cur- 
sor, stop the drawing, and avoid an error message. 
Line 670 will activate the buzzer to signal that the 
plotting is over. Lines 680-690 wait for a key to be 
pressed to clear the screen and return to the menu. If 
the buzzer sounds without anything being plotted, it 
means that the function is too large to plot. 
(Decrease the SC(ale) value to continue.) I chose to 
use random-selected colors. They could be chosen by 
the user in an input statement as well (where you in- 
put the parameters after the menu display). 

Here are some values for the functions that work 
beautifully: 
R =Q;SC = 4:INGR = 60 
R = 2(I1-SIN(Q)):SC = 20 
R = COS(2 SIN(6 (Q))):SC = 90 
R = SIN(COS(IOO Q)):SC = 90 
R=COS(2 SIN(2 Q)):SC = 90 
R = I:INCR = 45:SC = 60 polygon 


R = (I + COS(Q)):SC = 20 
R = SIN(3(Q)):SC = 80 

R = SIN(4COS(2Q)):SC = 90 

R = COS(3SIN(Q)):SC = 90 

R = COS(SIN(IOO Q)):SC = 90 

R = I:INCR = 120:SC = 80 triangle 


18 REM PROGRAN TO PLOT POLAR FUNCTIONS 
26 REM BY HENRIGUE WELUDO FOR ATARI i 
88 DIM As 1: 

36 ‘cd y uu 

164 POSITION 71:7 “GRAFHS OF POLAR FUNC 
TICHS" 

119 POSITION 2,3:7 
1a “S LOR=BEG 


“FUHCTION MENU: 
SPI 


12a 7" 2h CARDIO 


140080019 


& 
a 


SRS AK 1- SIME Gag" 


ROSE" 


i 
Tinted 
ehh ed cod 


POL'’GO 


26 Yo:7 st "TMPUT:": 

Zig + “FUNCTION #, Ay B. “INER.. SC. "Gs INPUT 
4.4.6, INCR. SC 

224 IF H=@ THEN Hel 

z@2 IF H=l THEN U=4 

224 IF A= THEH ARl 

226 IF B= THEN B=1 

234 7:7 >? "00 ‘YOU WANT THE &-Y AXES OI 
SPLAVED" ; 

24@ INPLUIT ag: IF A$¢1.496"Y" THEH bet 

368 COLOR 1:GRAPHICS 24 

BiB I=IMTCRNDE 1 1 
32 Li=sINT¢RNOe 1 
336 LZ=IHTCRNGK 1 


RES 
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346 IF ABSCLI-L23<4 THEH 324 

356 SETCOLOR 4,1,L1 

364 SETICOLOR 2.1L 

37H SETCOLOR 1,1,L2 

366 IF bi>1 THEM 410:REM --DISPLAY AXES? 


338 FOR 1-4 TO 315 STEP 4:PLOT 1,96: MERT 
I 

= FOR I=% TO i) STEF 3:PLOT 166, 1:NEX 
466 REM ----PLOTTIMG CALCULATION 

416 FOR T=6 TO 366%U STEF INCR 

426 GETS? 3 

438 ON M GOTO 316, 526. 538, 546, 556, 568, 57 
8,55 
SoH 
Sif 
S24 
sa 
aH 
a5 
Sée 
ra) 
Soa 
664 
616 
624 TTT CC RASING iho xSC 3 
634 CAM 1SS OR ABSCYO95 THEN 676 
644 IF T= THEN PLOT 166+%,96-'/ 

658 ORALTO 168+, 96-' 


664 MEXT T 
br FOR I=1 TO 75:POKE S32r9.@:NEXT I 
6ra bE 


i LEL:OPEM #1.4.@."K:":GET #1, 4 :0LOSE 
1 
696 FUT #6.125:G0T0 99 © 


Reading the 
ATARI 
Keyboard on 
the fly 


James L. Bruun 


For most programs the normal method of using the 
INPUT statement to get keyboard characters into a 
program is perfectly satisfactory. There are times, 
however, when we need to get a keystroke without 
stopping the program to wait for a key to be struck. 
The ATARI computer has all the features need- 
ed to enable the programmer to check the keyboard 


without waiting for an INPUT statement to get the 
character. Memory location 764 retains a key code 
for the last key pressed. Further, when the RUN 
command is executed, that cell is set to 255 to in- 
dicate that no key has been pressed. During the run- 
ning of a program, that location can be POKEd with 
a 255 to indicate that we’ve checked it since the last 
key was pressed. 

The following program illustrates the use of 
these features in a subroutine. First, initialize an I/O 
buffer and string variable. 

10 OPEN #1,4,0,‘‘K:”’ 

20 DIM CHARS(1) 

Then build the subroutine. Always precede your 
block of subroutines with an END statement to pre- 
vent accidental execution. 

30 PRINT ‘‘(ESC) (CLEAR)’’ 

40 POKE 752,1 

50 GOSUB 5000 

60 IF CHAR = 0 THEN 50 

70 POSITION 5,5 

80 PRINT ‘‘CHARACTER = (‘‘;CHAR$;"’) 

90 GOTO 50 
Most programs that would need this feature would 
perhaps be doing complex things if the keystroke has 
not occurred, but in this one we have chosen to ‘do 
nothing’ until a key is pressed. (oO 


PRESCHOOL FUN 
R (16K BASIC) This readiness program 


o has two parts with several individual mod- 
X he ules, Part one reinforces color, shape and 
aq number recognition. Part two has units on 
upper and lower case letters and directions. No 


2, reading required. Full color graphics and sound. 
cass. $15.00 


MATH FACTS - LEVEL 1 

(16K BASIC) First in a series of self-paced instructional 
programs for elementary school children. The program auto- 
matically advances to the next unit when the child has mastered 
80% of the work generated by the computer. The previous unit 
will be reviewed Fhe child cannot master 50% of the work in a 
particular unit Concepts covered are: numbers, number place- 
ment and number words (1-20), addition and subtraction (visual 
and abstract). (Grades K-2) cass. $15.00 


CRIBBAGE 
(24K BASIC) Play cribbage with the computer at two different 
levels. As a beginner, the computer will point out your errs without 
penalizing you. But watch out! At the intermediate level, the 
computer will peg your points if you don’t cass. $15.00 


CASINO I 
(16K BASIC) Try your luck at the Lucky Lady... Play 
BLACKJACK... The computer will be the dealer foryou and your 
friends (1-4 players). You can split and double your hand as you 
attempt to break the house. OR hit it big on the SLOT MACHINE. 
Two programs on one tape. cass. $15.00 


*ATARI is a trademark of Atari, Inc. 


JtH.E.S.LS. 


Please add $1.50 for shipping 
P.O. Box 147 Mich. residents add 4% tax 
Garden City, MI 48135 WRITE for FREE FLYER 

or call (313)595-4722 forC.0.D. | DEALER INQUIRIES WELCOME. 
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User’s Report: 
Waterloo 
Structured 
Basic 

for the PET 


P. T. Soencer 

7 Brightside Drive 
West Hill, Ontario 
Canada MIE 3Y8 


Waterloo Structured Basic comes in the form of an 
EPROM which sits at address hex 9000. After 
SYS’ing to 9*4096, you have all of standard PET 
basic, plus the following statements: IF (without 
THEN or GOTO), ELSE, ENDIF, ELSEIF, IF- 
THEN-QUIT, LOOP, ENDLOOP, WHILE, UN- 
TIL, PROC, ENDPROC, and CALL. You also can 
insert as many blanks as you wish at the beginning 
of each basic line. 

The EPROM chip comes with a serial number, 
complete instructions for installation, a 161 page 
manual aimed at beginners to structured programm- 
ing, and a purchaser’s registration card. Future up- 
dates to the chip are said to be free to registered pur- 
chasers, provided the chip is returned for reburning. 
The list price for this package is stated to be $150, 
with substantial discounts for educational institutions 
and bulk orders from users’ clubs. For example, I 
purchased mine as part of a group of about twenty at 
the Toronto PET Users’ Club for $61.50. 

The idea behind the Waterloo structured ap- 
proach is apparently that a program should be 
readable to someone else, or to the programmer 
himself after one or two years. To aid comprehen- 
sion, you are supposed to indent freely, any use of 
GOTO’s hither and thither. 

After installing my chip and reading the instruc- 
tion manual, I sat down to redo a routine that I had 
written in standard PET Basic the week before (see 
figures 1 and 2). The subroutine is one for a general 
file management program I have. 

The file management program itself allows me 
to create a file, with the number of fields per file 
record set at startup. For example, I have a house 


inventory with the fields set as description, replace- 
ment value, date, and insurance category. Another 
file is a class list with the fields as student name, 
marks for N tests, and average mark, where N is 
generally different for each different class. Numeric 
fields are stored as strings (saves space) until calcula- 
tions, if any, need to be done. 

The subroutine shown in figures 1 and 2 allows 
me to change output format to the printer, so that 
the file can be printed as a table without my having 
to stop the program and manually change the printer 
formatting line each time I want to print a different 
file table. There are probably better ways to do this 
than the one shown here, but this method illustrates 
the difference between Waterloo and standard basic 
quite nicely. 

Figure 1, the standard basic version, is not im- 
comprehensible, but neither does it go out of its way 
to be clear. However, it does have the advantage of 
being only 528 bytes long, whereas the Waterloo 
version is 831 bytes long. The Waterloo version, 
however, looks nicer and probably will be con- 
siderably esier to understand six months down the 
road. 

The first, and most important, disadvantage of 
Waterloo basic that I ran into in writing the code in 
figure 2 is that when Waterloo Basic is enabled, you 
can’t use Basic Aid, Brett Butler’s Trace, or Pro- 
grammer’s Toolkit. I missed the convenience of be- 
ing able to race the cursor around the screen at high 
speed, being able to trace execution to find bugs, be- 
ing able to renumber when there was no space bet- 
ween lines and I had to add a line, and having the 
next available line number automatically appear on 
the screen. 

Since figure 2 gives the same results as figure 1, 
it presumably must be a correct, if perhaps not par- 
ticularly elegant, use of Waterloo basic. Lines 6000 
to 6380 are the Waterloo equivalent of GOSUB- 
RETURN, the difference being that a procedure can 
have a name, the name may be as long as you wish, 
and thus can be much more informative. 

Lines 6090 to 6130 illustrate the use of the IF- 
ELSE-ENDIF construction. I found it quite difficult 
to break out of the IF-THEN GOTO habit. I had 
become so used to this in the two years I have had a 
PET that it had become almost automatic. 

The WHILE-ENDLOOP construction in lines 
6190 to 6230 is handy, as the WHILE condition is 
evaluated first, unlike the standard FOR-NEXT con- 
struction, which goes through the loop once 
regardless of what value the index variable has. 
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TheBasic Swit 


Attention “Old” Pet™ Owners: 

Not sure about the ROM Retrofit Kit 

from Commodore? 

Now you can use both sets of Commo- 

dore ROMs and others as well. 

The Basic Switch allows switch selec- 

tion of either ROM set (your original set 

or your retrofit set) from Commodore. 

Plus, Model 15-A includes an additional 

zero insertion force socket allowing easy 

use of ROMs like the BASIC Programmer's 

Toolkit... concurrently. 

Model 15-A The Basic Switch plus ... 
includes expanded cable 
assembly and zero insertion 
force socket. Your 15th ROM 
simply plugs in ... enabled 
while either ROM set is selec- 
ted. Socket 15 may be re- 
addressed by the user for 
additional flexibility. 

The Basic Switch is sold in assembled 

form only. All models are designed for 

easy attachment to your Pet with a con- 
venient cable assembly. No soldering or 
drilling is required. The Basic Switch 
mates with a cable assembly at your 
primary board, and does not use the 
physical connectors of any Pet ports. 

Model 15-A allows you to use the BASIC 

Programmer's Toolkit without the need 

for the additional $25.00 board or tying 

up your ports. And since we've designed 
the 15th socket to be readdressable, to 
take advantage of available ROM soft- 
ware. 

Price Schedule: Effective June 1, 198O 


Model 15-A-24 or 28 with installed ROM 

Retrofit and Basic Programmer's 

Toolkit: $259.95 

Model 15-A-24 or 28 with installed ROM 

Retrofit and both BASIC Programmer's 

Toolkits: $304.95 

1. “Old Pets were shipped with 24 or 28 
pin ROMs. You must check which you 
have, and specify at time of order. 

2. “The BASIC Programmer's Toolkit is 
available in versions for “Old” Pets 
and retrofitted Pets. Order both from 
us with The Basie Switch and save 
the $25.00 Board cost plus an addi- 
tional $10.00. At the “package” 
price, you end up with both versions 
of the BASIC Programmer's Toolkit for 
$90.00. 

3. The Basic Switch line carries a 
repair/replacement warranty, F.O.B. 
South Bend, IN. This warranty does not 
cover any ROMs, but does cover all 
materials and workmanship in The 
Basic Switch and harness assembly. 

4. Ordering Information: We do not ship 
C.O.D. Please include payment with 
order, or wait for your local dealer 
to carry The Basic Switch line. Visa/ 
Master Charge accepted. For mail 
order enclose address, name, account 
number, and expiration date. Dealer 
inquiries invited. 


marketed by: 
COMPUTER CENTER OF SOUTH BEND 
51591 U.S. 31 North 
South Bend, Indiana 46637 


Model (219) 277-4655 
15-A-24 
15-A-28 Indiana residents add 4% soles tax. All orders add $2.50 shipping F 
. . larning 1) i i 1OMs is ise te 1 
The Basic Switch:_ ____ $129.95 Fenn sak professional Gsastance for instalation We assume no respons 
bility for damage caused during insertion or removal. 
with Installed ROM Pet™is a trademark of COmmodore Business Machines, 
Retrofit Kit from Inc. of Santa Clara, Calif. The BASIC Programmer's Toolkit 
. is a product of Palo Alto IC's, A Division of Nestar Systems, 

Commodore: 9214.95 Inc. Delivery times may vary subject to availability of various 
With BASIC ROMs, etc. Prices and specifications subject to change with- 


out notice. 


Programmer's Toolkit* ——_ _ $179.95 
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Lines 6270 and 6280 could probably have been 
integrated as one, but I liked the symmetry with line 
6220. The IF-THEN-QUIT construction is much 
more convenient than the standard IF-THEN-set in- 
dex variable to maximum and GOTO NEXT that 
must be used to keep the stack clean. The short cut 
in lines 6120 and 6160 of figure | is not particularly 
recommended, as sooner or later it will probably 
cause an ?OUT OF MEMORY ERROR because of 
stack problems. 

Lines 6040, 6330, and 6340 took some advance 
thinking, as I find it much easier to let it all happen 
at the end as an INPUT S2$: IF S2$ ‘‘Y’’ THEN 
6050 construction, especially when in Waterloo basic 
I faced the prospect of having to go back and change 
the identation of most of what had been written. In 
fact it was this that first decided me to sit down and 
write out the Waterloo code before hacking away at 
the keyboard, a blessing in disguise, as the code in 
figure 2 worked with much less debugging that that 
in figure 1, which WAS composed at the keyboard. 

In summary, I would recommend Waterloo 
basic if you usually write programs longer than 4K, 
if your friends call your efforts pathologically com- 
plicated, or if you have already been trained in struc- 
tured programming. On the other hand, I would not 
recommend it if you are addicted to machine 
language utilities such as Toolkit, Trace, or Basic 
Aid, or if you have less than 16K of RAM (struc- 
tured programming trades space for readability). 
Another consideration is that if Waterloo basic gains 
the same acceptance as their WATFOR and WAT- 
FIV did with Fortran, it may not be long before it 
becomes the industry standard, in which case you 
will HAVE to have it unless you plan to use only 
your own programs. 


Figure 1: Standard Basic Coding 


PET/CBM SOFTWARE 
SPECIAL - BUY 2, GET 1 FREE! 


Below items are $7.95 each, any three for $15.90 
— WE PAY POSTAGE — 


NEW! JOYSTICK CONNECTION KIT contains all parts and instructions to 
iD AT SP connect an ATARI joystick ($10 at Sears) to your PET. 
eI-1941 b SPACED-OUT JOYSTICK GAMES W/CB2 SOUND Galacti Target. Space 
*4TRY AGAIN" i Race 
OTHER SOFTWARE: 
Billboard - Display messages in one-inch scrolling letters on screen 
Letter Squares - Tile-sliding alphabet puzzle 
Hangman - Animated with the PET’s excellent graphics 
Card Sharks - Card game inspired by the TV show 
High Rollers - Dice game similarly prompted 


Or Sm t} i 


RGEHT AYE PROVIDENCE. RI 0 


Orders shipped within one week when payed by money order or cashier's check Personal che 
RI residents add 6% tax 
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QMEGA “WHOLESALE COMPUTER PRICES” 


SALES DIRECT TO THE PUBLIC 
12 Meeting St., Cumberland, R.I. 02864 


CO. 
PRODUCT SPECIAL 
(_kil = “a NONTH 


| 
TRS*80 
Model Il - $3,500 : Products are 


| = 
Retr a. 2l ate. 

wrervrrrrrret ree 
eal 


A a a a a ed 


Apple Il 
16K - $1049 


al Atari 800 


INTERTEC SUPE ean : $ 749.00 


32K RAM - $2449.00 
64K RAM - $2649.00 


NEC Spinwriter 
5510-5530 - $2449 


OMEGA OFFERS THE BEST DELIVERY AND PRICE ON: 
APPLE ¢ ATARI * TRS:80 MODEL Il « INTERTEC » 
T.l. 810 ¢ HEWLETT-PACKARD-85 ¢ SOROC « 
COMMODORE e¢ NEC ¢ QUME ¢ CENTRONICS 


QMEGA sells only factory fresh, top quality merchandise to our customers. 
QMEGA will try to match any current advertised price with similar purchase conditions. 
Before you buy antes else - be sure to call OMEGA Sales Co. 

401-722-1027 or 


1-800-556- 7987 


OMEGA ships via UPS, truck, or air. COD's, VISA, Mastercharge accepted. 
“A member in good standing of the better business bureau.” 
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TelePET 


Jim Butterfield, Toronto 


This is the age of computers talking to other com- 
puters. There’s no reason why your PET can’t join 
in the conversation, too. New communications inter- 
faces for the PET are being announced fairly often 
these days. What’s involved in the hookup? 

Most commercial offerings give you the whole 
package to enable you to hook up and be ‘‘on the 
air’’ fairly quickly. But since their technical ap- 
proaches are different, it’s worth while to look at 
what a communications interface needs to do. 
Interface elements 
There are several problems that need to be addressed 
in order to hook your PET to a telephone line. Star- 
ting at the telephone end, they are: 

1. The telephone company gets annoyed if you wire 
things directly to the telephone line, unless they are 
‘‘approved’’ devices. The small user should also 
worry about the dangers to his PET: some hefty 
voltages can come from the telephone exchange. 

The easiest solution to this is an acoustic 
coupler. You fit your telephone handset into one of 
these, and it arranges to make noises into the 
transmitter and to listen to the earpiece with a 
microphone. No electrical connection - sound power 
does the whole job. 

2. The telephone system was designed to carry voice, 
or sounds in a certain frequency range. The PET 
signal needs to be changed to an audible signal in 
order to be transmitted; at the other end, the sound 
frequencies need to be changed back into bits - the 
ones and zero that the PET needs. 

This problem is solved by a device called a 
Modem. A Modem consists of two parts: a 
modulator, which changes bits to tone frequencies for 
sending; and a demodulator, which changes the tones 
back to bits. 

3. You can normally send and/or receive only one 
bit at a time. PET handles eight bits at a time. 
Something has to take the eight bits from the PET 
(the ‘‘parallel’’ signal, since eight bits come out 
together) and fire them off one bit at a time (creating 
a ‘‘serial’’ signal, with one bit after the other). In the 
other direction, you must collect the eight bits, one 
at a time, pack them together and deliver them to 
the PET as a parallel eight-bit byte. 

Tied into this problem of parallel-to-serial con- 
version is a related job. Much of the time PET will 
have nothing to send. We must distinguish between 
an idle connection, where nothing is being sent, and 
an active connection which has a character under 
Way. 

This last task is usually effected by a signal call- 
ed a start bit. The start bit is sent before the PET’s 
information bits; it says, ‘“here comes a character’ 


If you don’t use a start bit, you know that the line is 
idle. 

All of the above tasks can be performed in 
machine-language programs, or in a rather clever 
chip called a UART. Either way, you must arrange 
to send a start bit, then the eight data bits, one at a 
time, and then a brief pause (sometimes called a stop 
bit) before you start the next character. Coming the 
other way, the receiving PET must wait for a start 
bit and then collect the eight data bits into a single 
byte. 

4. If you’re communicating with a non-PET at the 
distant end, the other computer will probably want 
to receive a standard code called ASCII, and will 
send that code back to you. PET does not store 
characters in ASCII format, so that a little transla- 
tion will be needed in both directions. 

PET has characters that don’t exist in ASCII. 
For example, most of the PET graphic characters 
don’t have any corresponding ASCII characters. 
You'll have to give them up. 

There are a few ASCII characters that don’t 
have any counterpart in the PET. Most of these are 
called control characters. You'll probably need a few 
of these for a good communications interface. Most 
commercial packages make them available with a 
two-key combination from the PET, For example, 
the keys Reverse, semicolon often generate the 
character known as ESC or Escape in ASCII]; this 
character usually tells the distant computer to stop 
whatever it’s doing and wait for a new command 
from you. It’s a very handy character to know when 
the distant computer has started to send out a 
massive amount of data which you realize you really 
don’t want. 

5. The physical connection at the PET is either the 
IEEE-488 bus or the Parallel User Port. If it’s the 
IEEE-488 bus, the connected device will have to 
obey the protocols - recognizing when it’s selected, 
receiving and delivering characters to the bus, etc. 

If it’s the Parallel User Port, PET will need to 
contain a machine language program which is called 
by the user’s program any time it is desired to 
receive or send. 

The IEEE-488 bus is simple to use - a normal 
PRINT# command will send data - but since the bus 
is shared with other devices, careful design is needed. 
Tracing the Flow 
Let’s put the above together and track a character 
from the PET to the line, and vice-versa. 

1. PET decides to send a character. If the interface is 
via the IEEE bus, PET might simply issue the com- 
mand PRINT#7, ‘‘A’’; or if the interface is via the 
parallel user port, the program might s SYS 
30456,‘‘A’’ There are many possible variations. 

2. The character- in this case, the letter A which is 
represented in PET text mode as hexadecimal C1 
-must be translated to true ASCII. This might be 
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4 Skyles Electric Works 


“If you could own only one peripheral 
for your PET, it should be this. It opens 
the whole world to your PET.” 


The Cat: Switches for mode selection and 
operation. LEDs display unit status. 
Acoustic self-test is standard. Compact 
powerpack plugs directly into wall socket. 


Now $325.00* complete with membership 
in The  Source*, Skyles — six-foot 
cable/interface to the PET user port, 
together with Skyles cassette program in 
machine language and in BASIC. 

(If bought separately: $180.00, modem; 
$80.00, cablelinterface and program; 
$100.00, membership in The Source“) 


The Cat and D-Cat have been specially prepared by Skyles for interfacing to the PET 
user port (not to the IEEE port) and with a special cassette program, allowing 
communication 


... from modem to disk and disk to modem 
...from modem to terminal; read on screen, save on disk 
... from disk to printer through IEEE 

..from disk to screen 


The D-Cat: FCC-approved for handset jack 
connection with any modular phone, 
either single or multi-line. No need for 
adapters. Can fit under phone; installs in 
seconds. Mode switch to monitor voice or 
data transmission. Special ‘hold’ func- 
tion; complete self-test. Power pack plugs 
directly into wall socket. 


Now $350.00* complete with membership 
in The Source’, Skyles — six-foot 
cable/interface to the user port and 
Skyles cassette program in machine 
language and in BASIC. 


(If bought separately: $210.00, the modem; 
$80.00, cablelinterface and program; 
$100.00, membership in The Source“) 


*What About the Source? 


Sometimes called ‘The Information Utility," it's a telecomputing network that gives 
you, through your Cat or D-Cat modem, thousands of programs and data bases and 
allows you to communicate with other users interactively and through electronic mail. 


"California residents. please add 6% or 6.5%. sales fax as required 
VISA, MASTERCHARGE ORDERS CALL (800) 538-3083 (except California residents) 
i CALIFORNIA ORDERS PLEASE CALL (408) 257-9140 
231 E South Whisman Road 


4 Mountain View, CA 94041 
Skyles Electric Works | Mountain View 
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done in either program or in hardware; in either 
case, the result is hexadecimal 41. 

3. The parallel to serial translation now takes place. 
Once again, this may be done within a program or 
by hardware (a UART chip). A start bit is generated 
followed by the eight bits of data; each is sent at the 
appropriate time. 

4. Each bit, as it is generated, is translated by the 
modem into an appropriate tone frequency. One fre- 
quency represents a zero bit, another represents a 
one bit. 

5. The tones generated by the modem are fed into a 
small speaker which is very close to the telephone 
handset transmitter. The sound from the speaker is 
picked up by the telephone and sent to the line. It’s 
on the way... 

At the receiving end: 

6. The telephone earpiece has been making a whin- 
ing sound from the tone received from the line. The 
sound is picked up by a small microphone close to 
the earpiece. 

7. The signal reaches the modem which examines the 
tone and classifies it as either a logic zero or a logic 
one. It passes along the logic state - zero or one - to 
the serial to parallel translator. 

8. The serial to parallel translator waits patiently for 
a start bit (logic zero) to be received. When it sees 
this, it carefully collects the eight data bits at the 
apropriate times. This might be done either in a pro- 
gram or in hardware (again, with a UART). 

9. The eight-bit character might be placed into a buf- 
fer or might just be held for pickup by the PET. In 
either case, the received character will need to be 
translated from ASCII into PET format. 

The Modem/Acoustic Coupler 

The modem and acoustic coupler are invariably 
packaged together. Speeds up to 30 characters per se- 
cond are generally available; lower speeds will work, 
but the highest rate of 30 eps is a virtual standard 
now. 

The Commodore interface packages everything 
into the modem/coupler case: IEEE bus interface, 
UART,, the whole thing. Other suppliers use stan- 
dard commercially available modem/couplers and 
supply extra hardware and/or programs to complete 
the interface. 

The commercially available modems use an in- 
terface known as RS-232. It’s nice to have this inter- 
face available, since you cannect other things besides 
modems to it. Various types of terminals, both video 
or hard copy, will hook up with no problems. 
Parallel/Serial interfaces and Buffering 
It’s economical and flexible to use a program to do 
your parallel/serial interface, and buffering can be 
provided quite easily. It does take up memory space, 
however, and it can keep the PET rather busy: bits 
move in and out at a rate of one every three 


milliseconds or so. Your interface from Basic will be 
rather more tricky, too: PRINT# or GET# won’t 
make the connection too easily. 

Hardware costs more, but helps with some of 
these problems. You may not be liberated from the 
need for special programs, though. The mighty 
UART chip can only catch or send one character at 
atime. Unless you have buffering, PET will have to 
wait before the next character can be sent or received. 


The GPIB bus 

The IEEE-488 bus is ideal for sending or receiving 
characters from Basic. As always, however, there’s a 
catch or two. If the device you’re sending to is busy 
and can’t catch the character you want to send it, it 
will probably hang up the bus so that everything 
stops until it’s ready. The same thing may happen if 
you try to INPUT or GET a character or value that 
hasn’t arrived yet; you’ll either time out or wait. 

This isn’t new. Many devices hold up the IEEE 
bus - the printer and the disk do it, for example. But 
with a communications interface, waiting time 
becomes a serious problem. You might lose a 
character if the bus is hung up waiting for something 
else to happen. It becomes more important to use the 
bus in a more sophisticated way. 

Looking them Over 

All of the above problems have been solved in a 
variety of ways by the various suppliers. A 
remarkable amount of ingenuity has been called into 
play, and the user has considerable choice. 

Check out the units available to see which ones 
fit your style. How much of the package is hardware, 
and how much software? How easily can you inter- 
face with your own Basic programs? Can you attach 
devices other than a modem? Does the unit contain 
buffering? How is the translation to and from ASCII 
accomplished? Can you abandon ASCII if you 
choose and send directly from PET to PET, for 
graphics or program transfer? How much memory 
will you need in the PET? Will you need disk? And, 
of course, how much money will it all cost? 


There’s no single answer. Find out what suits you. 
Communications interfaces are here. You'll see 

more of them used in the PET community. One of 

these days, you'll be tempted to join the network. © 
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Word Pro 
Converter 


Robert W. Baker, BAKE? ENTERPRISES, 
15 Windsor Drive, Atoo, NJ O8OO4 


An ever increasing number of programs make use of 
Commodore’s Word Pro program with its excellent 
editing facilities to generate files for their own use. 
However, disk files created by Word Pro 3 are not 
fully compatible with those created or used by Word 
pro 4 on the 8016/8032. 

If you create any files on a 2001 series 
PET/CBM using Word Pro 3, you will have to do 
some editing to be able to use the same file on an 
8016/8032 CBM with its 80 column screen. This sim- 
ple utility program will eliminate the boring task of 
editing the file, and do all the necessary changes for 
you automatically. It will run on either a 2001 
PET/CBM or an 8016/8032 CBM; using a 2040 
disk. Remember, though, that the 2040 disk must 
have the DOS 2.0 ROMs if you are using an 
8016/8032 CBM. 

The Word Pro Converter program is very 
straight forward in operation and no fancy frills or 
options are included. The file to be converted must 
be on the diskette in Drive #0. The new file created 
will be written on the diskette on Drive #1 with the 
same name. If the file all ready exists on Drive #1, it 
will be deleted first. The only input to the program is 
the name of the file to be converted. It should be 
very simple to add an output file name option along 
with drive number selections if desired. During pro- 
gram execution, any disk error will be displayed and 
terminate the program. 

In theory, the program simply copies the file 
byte-by-byte while counting characters and looking 
for a RETURN within each original 40 character 
line. Straight text that continues over several 40 
character lines is copied as-is, creating new 80 
character lines. If a RETURN is detected in any 
line, an extra 40 spaces are added at the end of the 
line whenever required to make the line 80 characters 
long. 

Files stored by Word Pro 3 contain 40 
characters per display line regardless of content. 
Thus, if you have a single FP command on a line, 
there is a 37 byte overhead with Word Pro 3. Word 
pro 4, on the other hand, stores 80 characters per 
display line regardless of content. The same FP com- 
mand in Word Pro 4 will then have a 77 byte 
overhead! While Word Pro 4 has its advantages with 
the 80 column screen, the disk files created will be 
generally bigger than those created by Word Pro 3 
for the same text. This is especially true when there 
are a large number of formatting commands or blank 
lines. 


Program Variables 

E input file status, 64 = end-of-file 

N #characters in input file line, 40 max 

P #characters in output file line, 80 max. 

R RETURN character flag: 0=no 1 =yes 


BS character (byte) being copicc 
100 REM KKK KKK KE KKK KK KKK KKK ERK EKER EEK 
110 REM 
126 REM SIMPLE UTILITY PROGRAM 
136 REM TO CONVERT DISK FILES 
140 REM CREATED BY WORD PRO III 
159 REM FOR LOADING BY WORD PRO IV 
166 REM 
176 REM ------------------------------ 
186 REM 
196 REM BY: ROBERT W. BAKER 
200 REM 
216 REM BAKER ENTERPRISES 


220 REM 15 WINDSOR DR., ATCO, NJ 98604 
230 REM 


24G REM FRRARRRRA KKK RAK KRER ERR E KER EK 


250 : 

260 : 

270 PRINT"A WORD PRO CONVEO 
AR TER 

280 PRINT"VYTHE FILE TO BE CONVERTED MUST + 
aBE ON 


298 PRINT"ON THE DISKETTE IN DRIVE #6¥ 
300 PRINT"THE NEW FILE GENERATED WILL BE 7 
AWRITTEN 
319 PRINT"ON THE DISKETTE IN DRIVE #1, 
320 PRINT"WITH THE SAME FILE NAME.VY¥ 
330 INPUT"FILE NAME  .<<<";FIS$ 
340 IF FIS="." THEN 339 
358 PRINT"¥xCONVERTING FILE, PLEASE - 
AWAIT... 
360 OPEN 15,8,15 
370 OPEN 5,8,8,"0:"+FI$+",P,R" 
380 GOSUB 568 
399 PRINT#15,"S1 
498 OPEN 6,8,9," 
418 GOSUB 566 
420 GET#5,A$,B$:GOSUB 560 
430 PRINT#6,A$;B$;:GOSUB 569 
449 P=0 
450 N=0:R=0 
460 GET#5,B$:E=ST:GOSUB 566 
470 PRINT#6,B$;:GOSUB 560 
480 P=P+l:IF P=80 THEN P=0 
496 IF E=64 THEN PRINT"VrDONE !!!y": 
GOTO 619 
509 N=N+1 
519 IF ASC(B$)=31 THEN R=1 
520 IF N<4@ THEN 468 
530 IF R=0 OR P=@ THEN 459 
540 FOR N=1 TO 40: PRINT#6," ";GOSUB 560: 
aNEXT 
5598 GOTO 440 
560 INPUT#15,EN,EM$,ET$,ES$ 
578 IF EN=@ THEN RETURN 
580 PRINT"¥xDISK ERROR !!! 
599 PRINT EN;EM$,ETS$,ES$ 
600 PRINT"YOPERATION ABORTED! 
619 CLOSE 5: CLOSE 6: CLOSE 15 
READY. 
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Multitasking On 
Your PET? 


QUADRA-PET 


Charles Brannon 


QUADRA-PET is a machine language program that 
lets you partition the memory of an upgrade ROM 
PET or CBM into four 8K blocks. Each block is an 
independent program workspace. Programs existing 
in each 8K partition can be selected and then used 
and modified without affecting any of the other pro- 
grams. You can jump to any other of the programs 
at any time. 
After initialization with SYS 926, PET displays 
the question: 
WHICH PET? [1-4] 
Perhaps Mary, an avid computer-games buff, types 
in ‘1’? and loads STARTREK. She plays it for a 
while and then leaves to eat lunch. Meanwhile, Bob 
goes to the PET, sees that someone is using PET #1, 
and switches to PET #2 to write a business program. 
After nearly ‘‘perfecting’’ it, he leaves to see what 
Mary is up to. Now the kids come in, and after 
arguing for a half-hour agree to share the PET, one 
using PET #3 and the other PET #4. Fortunately for 
Bob and Mary, nothing the kids do can harm their 
programs. 
How To Use QUADRA-PET 
1. Load or type in one of the versions of QUADRA- 
PET. (Basic or hex) 
2. Enter NEW 
3. SYS 926 to initialize. 
4. PET will respond with WHICH PET? (1-4) 
5. Select the one you wish to use. 
6. Before loading or typing in a program for the first 
time, type in NEW. 
7. To select another PET, SYS 826 and follow instruc- 
tions 4-7. 
Now comes the fun part -- how does it work? Many 
memory locations in zero-page (0-256) are pointers 
QUADRA-PET works with three of those pointers. 
On power-up, PET determines the end of 
memory by writing a character to every memory 
location and then reading it back. PET then in- 
crements a memory location until a failure in reading 
that character occurs. This indicates that the end of 
available memory has been reached. Physically, this 
pointer is at location 52 decimal. ($34). The second 
pointer is at the start of memory, stored in location 
41. Originally, this points to the actual start of user 
memory, 1024. The last pointer is the end of text 
pointer. As you write your program it changes. 
QUADRA-PET partitions the memory by 


changing these pointers to point to successively 


higher memory locations, depending on which PET 
is in use. Since the end of text pointer changes, it 
must be saved before we move to a new PET and 
restored on return. QUADRA-PET, as it is in 
machine language, does all these things seemingly in- 


stantaneously. 
HOW TO SAVE A PROGRAM PRODUCED 
WITH QUADRA-PET: 
. SYS 1024 to go to the Monitor. 
Enter: .M 0028 002B and type RETURN. 
3. You will get a display something like: 
1 0028 01 04 3E Ye Bar 
4, We will use only the first four bytes. Write down the 


nue 


first pair in reverse order on paper, for example 


0401 
Do the same with the second pair. (e.g. 043K) 
3+ Enter: 8 * NA) 01,XXXX,YYYY 


whe is the name of your program, 
xX is the first number you wrote down, and YYYY 
is the second. For exa ve the example program 
which we will call ‘‘P + you would enter: .S 
“PE 01,0401 ,043E 

6. Press RETURN and press play and record to save 
your program. 

| 7. To load this saved program into a space prepared by 

j -L. ‘PROG 


‘is the name of your 


program. 


HOW TO LOAD A PRE-EXISTING PROGRAM 
INTO A SPACE PREPARED BY QUADRA-PET: 


I could tell you how to do this on the old ROM PET 
but quite frankly, I can’t find the memory locations for 
this procedure in the new PET. All you PET experts -- 
HELP! 

If you can figure it out, please send in the procedure 
to COMPUTE. 


A litle imagination will create many uses for 
QUADRA-PET. 

For education, it is the perfect way to keep four 
students’ programs in the PET at the same time. 
Each program can be worked on and modified in any 
way without affecting any other of the programs. 

In business, four different business programs can 
exist simultaneously in PET’s memory, ready to use. 
For the small penalty of loading the programs into 
the program workspaces at the start of the day, all 
four are within reach of a carriage return -- faster 
than any disk drive. 

Machine language programmers can fill partitions 
with useful routines, leaving one or more partitions 
for BASIC, QUADRA-PET itself is short and easily 
relocatable. 

I would be interested to find out what novel and 
useful applications for QUADRA-PET you can think 


up! 
Happy QUADRA-PETing! 
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pp. 68-70 (Fall, 1979) 
DQ REM ER RRRR R RK KK Kk 
1 REM QUADRA PET 
2 REM RR I a a a ak 


REM:BY CHARLES BRANNON 96/87/88 
FOR I 826 TO 941 
READ A 
POKE I, 
NEXT 
SYS926 
END 
1666 DATA174,126,3,165,42,157,131,3,165 
1619 DATA43,157,135,3,169,143,169,3,32 
1620 DATA28,262,32,228,255,41,15,248,249 
1039 DATA261,5,176,245,170,202,142,126,3 
1646 DATA169,1,133,40,189,127,3,133,41 
1959 DATA189,131,3,133,42,189,135,3,133 
1668 DATA43,169,6,133,52,189,139,3,133 
1076 DATAS3,32,119,197,96,0,4,32,64 
1086 DATA96,3,3,3,3,4,2,64,96 
1096 DATA32,64,96,128,87,72,73,67,72 
1108 DATA32,89,69,84,63,32,40,49,45 
1119 DATA52,41,9,169,9,141,6,32,141 
1128 DATAG,64,141,6,96,76,58,3 
READY. 


A 


9 


Maybe it's because we've always had high standards. Be- 
ginning with our firstissue in July, 1978, we've published some 100 
programs for the Commodore PET in our first 20 issues, plus 20 
animated graphic “Front Cover” programs. Each program has 
been extensively edited by Glen Fisher, our Editorial Director. The 
result is obvious: Cursor programs reflect professional stan- 
dards. We're proud of every program we publish. 

But there's something else, too. 


It's imagination. Our subscribers continue to be delighted 
with the new, fresh programming ideas that Cursor provides. 
Some of the best graphic animations for the Pet have appeared in 
Cursor. Teachers love us! They use Cursor as an example of 
what can be done on a PET, with some skill and imagination. 

Finally, there's service. Orders for single issues are almost 
always shipped within 24 hours. New subscriptions are pro- 
cessed within five working days. Should you get one of our rare 
defective tapes, just return it for an immediate replacement. And 
of course you can cancel your subscription at any time and we'll 
gladly refund all remaining issues. 

Cursor: Quality. Imagination. Service 

For only $4.95 you can buy a sample issue and judge for 
yourself. Or send $27 for a six-issue subscription. You'll get six 
C-30 cassettes, each with five programs and a Front Cover ready 
to LOAD and RUN on your PET. With each issue you also get our 
Cursor Notes, a lively commentary on the industry, as well as 
documentation for the programs. 


O Sample issue of Cursor — $4.95 (CA. Res. add 6% tax) 
O 6 issues for $27.00 (U.S. & Canada) 
Box 550 


Goleta, CA. 93017 
Phone 805-967-0905 


Published By The Code 
Works 


THE FLOPPY DISK ALTERNATIVE « tensiersat 4800 baud 


PET/BETA-1 


FLEXIBLE DATA MANAGEMENT. .. MICRO-PROCESSOR 
CONTROLLED BETA-1 UNIVERSAL TAPE DRIVE BY MECA®*.. 
PERIPHERAL DEVICE WITH COMPLETE SOFTWARE SUPPORT 


SPEED Loads and saves at 4800 baud. Seeks at 100"/sec 

STORAGE Each BETA-1 drive stores 525,000 bytes or 126 named programs or 
files on a single cassette. Expands to four drives—two megabytes 

OPERATING 24 commands, 27 error messages, 2 user-defined commands—fully 

SYSTEM compatible with PET BASIC. Resides in only 4K—abbreviated 2K 
version, bootstrap loader, all romable 

FILE Named files, directories, program chaining and merging, sequential and 

CONTROL. random access files, field and record definitions, and more. . . 


Fr Ss Ss 


© 500K storage per drive 


© complete hardware and 
software system 


Meca’s digital tape provides the 
features of disk plus gives you 
more storage and costs less. 


LOAD AND SAVE AT HIGH SPEED 


Eliminate those piles of cassettes cluttering up your life. Organ- 
ized on a single cassette, your present collection of programs be- 
comes a named program library, You load and save any program 
in seconds, instead of minutes. In addition to fast, convenient, 
reliable program storage, huge amounts of textual and numeric 
data can be accessed quickly and easily. With up to two mega- 
bytes on line, programs for mailing lists and business records are 
Practical. 


This is a complete system. Just plug it in and go. Additional soft- 
ware is available. 


BETA-1 DRIVE, PET/BETA-1 OPERATING SYSTEM, MANUAL . 
ADDITIONAL BETA-1 SLAVE DRIVES 
MANUAL (applicable to purchase) . 


$525.00°" 
310.00 
10.00 


software for small comruters 


1983 Rio Grande 
Austin, Texas 
78785 


1-512-477-2287 


P.O. Box 8483 
Rustin, Texas 
78712 
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OOPS! 

A Crucial 
Update to 
Disk ID 
Changer, 
Issue #5, 
COMPUTE 


Rene W. Poirier 


DISK ID CHANGER was intended to change the 
ID on diskettes to prevent having diskettes with 
duplicate ID characters. Information has surfaced to 
the effect that ID Changer does not accomplish its 
goal. Though it successfully changes the characters 
on Track 18 Sector O, those characters are purely 
cosmetic and for display in the directory only. The 
actual ID characters are deeply imprinted on each of 
the sectors of the diskette. 

The bulletin mentioned in the previous article 
did not specify the DOS to which it was referring. It 
now appears that the actual reference was to the new 
DOS which auto-initializes a diskette when it 
recognizes a change in the sector ID characters. In 
this case, swapping diskettes with identical ID 
characters will fool the new DOS and it will not 
auto-initialize and create a new Block Availability 
Map. 

This can cause real problems. DISK ID 
CHANGER, though intended to prevent this, fails to 
do so. In fact, it can compound the problem, since 
the true ID is lost to the user. 

Thanks to Jim Butterfield for bringing this error 
to my attention and directing me onto a course 
toward a solution. The program, ID CORRECTOR 
checks the diskette for the actual, or original, ID 
characters inprinted on the sectors, and compares 
those characters to the cosmetic characters on Track 
18 Sector 0. If they match properly, it so informs 
you. If they do not, it can replace the erroneous ID 
with the actual characters, returning the changed 
diskette to its original configuration. If use of the ID 
CORRECTOR on drive 0 is desired, change the 
variable DV in line 7. 


This will not solve the original problem of more 
that one disk having identical original ID characters, 
such as backup diskettes. Care will have to be taken 
when using these diskettes. It would seem advisable 
to include forced initialization commands in pro- 
grams to force creation of a new BAM when disket- 
tes are changed. The real solution to the problems 
would lie in a command to duplicate, but with a 
change in ID characters on the copy diskette, but 
alas.... 

The portion of DISK ID CHANGER for chang- 
ing the name on a diskette for library naming pur- 
poses is valid and safe. To prevent accidental use of 
the portion which changes ID characters, I have in- 
cluded another version called DISK NAME 
CHANGER which will alter only the ID NAME of a 
diskette. It appeared easier to build a new program 
than to try to extract the appropriate sections from 


DISK ID CHANGER. 


1 REM *** DISK ID CORRECTOR 
2 REM *** BY RENE W POIRIER 
3 REM *** BERLIN, N.H. 

4: 

5 


REM *** WITH THE HELP OF JIM BUTTERFIELD 
=: ee 


DV=1:REM SET DRIVE NUMBER (1/6) 


16 OPEN9,9@,9:OPEN15,8,15 

20 PK=PEEK (59468) : POKE59468,12 

h":FORI=1T020:MDS=MD$+"¥":NEXT 

TO39:BLS=BL$+" ":NEXT 

Avy ID CHECKER/CORRECTOR 

RES="PRESS rcRETURNf TO CONTINUE 

99 GOTO1800 

196 INPUT#15,ER: IFER=OTHENRETURN 

119 INPUT#15,ER,EM$,ETS$,ES$ 

126 PRINTMD$"rDISK ERROR! f#"ER" "EMS" 3 
a"ETS", "ESS 

136 END 

208 INPUT#9,QS:PRINT:Q1S=LEFTS$(QS,1): 
RETURN 

396 CLOSE15:POKE59468,PK:PRINT"A":END 

1066 PRINTPOS:PRINT"VPLACE DISKETTE TO BE - 
aCHECKED IN DRIVE" DV "yy" 

1619 PRINTRES$:GOSUB290 

1029 ADS="":IDS="" 

1638 PRINT#15,"1I"+STR$(DV) :GOSUB19B 

1040 OPEN2,8,2,"#9":GOSUB169 

1059 PRINT#15,"U1:2";DV;",18,8":GOSUB109 

1068 FORJ=33T034 

1076 PRINT#15,"M-R";CHR$(J) ;CHR$(16) : 
aGET#15,2$ 

1989 ADS=AD$+Z2$:NEXTJ 

1999 PRINT#15,"B-P:2,162":GET#2,A$,Al1$: 
nIDS=AS+A1$ 

1100 PRINT"YYACTUAL ID RECORDED ON 3 
aSECTORS IS: "AD$ 

1119 PRINT"YFILE ID IS: "IDS 

1129 IFADS<>IDSTHEN1266 

1139 PRINT" y>>>3>>>>rTHIS DISK IS OK! 

1146 CLOSE2 

1158 PRINTMDS$BL$:PRINTBL$MD$"DO YOU WISH - 
aTO CHECK " 

1166 PRINT"ANOTHER DISKETTE? (Y/N) x";: 
3GOSUB286 

1179 IFQ1S="Y"THEN1909 

1189 IFQ1S<>"N"THEN1156 
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1198 GOTO309 1160 IFQ1S<>"Y"THEN11306 
1296 PRINT"VVACTUAL ID AND FILE ID DO NOT + 1179 MD=16 :GOSUB489 
aMATCH! 1189 PRINT"ENTER NEW DISK NAME":PRINT"LIMI 
1219 PRINTMD$"SHALL I PROCEED TO CORRECT? 7 aT TO 16 CHARACTERS x" 


a(¥/N) x";:GOSUB206 
IFQIS<>"Y"THEN1140 
PRINTMDSBL$MD$"BE PATIENT... 
PRINT#15,"B-P:2,162":GOSUB100 
PRINT#2,AD$; :GOSUB108 
PRINT#15,"U2:2";DV;",18,0":GOSUB199 


1220 
1230 
1246 
1259 
1266 


127G PRINT#15,"I"+STR$ (DV) :CLOSE2 
1289 PRINTMDSBL$"A"MD$"CHECKING DISK 
1296 PRINTLEFTS$(MDS$,8) ; 

GOTO1928 


1360 


1 REM *** DISK NAME CHANGER 
2 REM *** BY RENE W. POIRIER 
3 REM *** BERLIN, N.H. 93570 
4 
5 
6 


18 OPEN9,0,0:OPEN15,8,15 
20 PK=PEEK (59468) : POKE59468,12 
30 MDS="h":FORI=1T026 :MDS=MD$+"¥":NEXT 
40 FORI=1T039:BL$=BL$+" ":NEXT 
59 POS="AYv DISK NAME CHANGER 
66 RE$="PRESS c~RETURNf TO CONTINUE 
76 DATA 2,OUT OF RANGE,TOO LONG 
80 READ A:DIM EMS$(A) :FORI=1TOA:READEM$(I) : 
aNEXT 
99 GOTO1060 
INPUT#15, ER: IFER=6THENRETURN 
INPUT#15,ER,EM$,ETS$,ES$ 
PRINTMD$"ZDISK ERROR!f #"ER" 
S"pErs", "ESS 
END 
INPUT#9,Q$:PRINT:Q1S=LEFTS(Q$,1): 
RETURN 
CLOSE2:CLOSE15 : POKE59468,PK:PRINT"A": 
3END 
PRINTLEFTS (MD$,MD) BL$: PRINTBLS 
PRINTLEFTS$ (MD$,MD) ; : RETURN 
MD=21:GOSUB489 
PRINT"LUNACCEPTABLE ENTRY -- 
PRINTRES : GOSUB290 : GOSUB499 
RETURN 
F=9:PRINTPGS 
PRINT"VON WHICH DRIVE SHALL WE - 
aPERFORM 
PRINT"THE CHANGES? (6/1) 1";:GOSUB298 
1028 DV=VAL(Q$) : IFDV<@ORDV>1THENEM=1: 
3GOSUB596 :GOTO1000 
IFDV=QANDQ1$<>"6"THENEM=1:GOSUB50@0: 
3GOTO190B 
PRINTPG@$:PRINT"¥PLACE DISKETTE IN 7 
aDRIVE"DV"¥" 
PRINTRES : GOSUB209 
PRINT#15, "I"+STRS$ (DV) :GOSUB169 
OPEN2,8,2,"#":PRINT#15,"U1:2";DV;", 
318,6":GOSUB169 
PRINT#15,"B-P:2,144":GOSUB106:DNS$="" 
FORI=1T016 :GET#2,A$:DN$=DN$+A$:NEXT 
MD=10:GOSUB460:IF F THENRETURN 
PRINT"THE PRESENT DISK NAME IS: 
PRINTTAB (5) CHR$ (34) DNSCHRS (34) 
MD=13 : GOSUB469 
PRINT"DO YOU WISH TO CHANGE IT? - 
(Y/N) 1";:GOSUB200 
IFQ1S="N"THEN1359 


"EMS" s 


"EMS (EM) 


1196 


1206 
12106 
1226 
1236 


1246 
1250 


1268 
1276 
1286 
1296 
1399 
1316 
1326 
1339 
134G 
1350 


1360 
1376 


1386 
1396 


GOSUB260 : IFLEN (QS) >16THENEM=2: 
3GOSUB59G :MD=18 : GOSUB486 : GOTO1196 

NDNS=LEFTS (QS$+BL$,16) 

MD=21:GOSUB468 

PRINT"SHALL I SEND x"NDN$ 

PRINT"TO THE DISKETTE ON DRIVE"DV"? 7 
(Y/N) 1";:GOSUB268 
IFQLS="Y"THEN1276 
IFQ1$="N"THENGOSUB406 :MD=18 : GOSUB408: 
3GOTO1179 

GOTO1216 

MD=21:GOSUB499:PRINT"BE PATIENT... 
PRINT#15,"B-P:2,144":GOSUB100 

PRINT#2,NDN$; :GOSUB109 
PRINT#15,"U2:2";DV;",18,0":GOSUB199 
PRINT#15, "I"+STRS$ (DV) :GOSUB106 : CLOSE2 
F=1:PRINTPO$:GOSUB1060 :F=9 

PRINT"THE NEW DISK ID IS: 
PRINTCHRS (34) DNSCHRS (34) 
CLOSE2:MD=21:GOSUB490:PRINT"DO YOU 7 
aWISH TO DO 

PRINT"ANOTHER DISKETTE? (Y/N) £";: 
3GOSUB208 

IFQ1S="Y"THEN1O4B 

IFQ1S$="N"THEN306 

GOTO1350 © 


CBM Profiler 
For 
PET/CBM-16/32K 


Profiler watches all your clients, distributors 
or customers important to your firm. Prints 3 
reports, labels & sorts in 20 fields maintain- 
ing 1100 profiles per diskette. 


Only $99.95 


Includes diskette, manual & source code. 


INTERMOUNTAIN DATA 


2321 East Mulberry #8 
Ft. Collins, CO 80524 


303-221-2059 


94 COMPUTE! September/October, 1980. Issue 6 


= 2 rather than the bullet-proof and hyphenation-proof 
Va rid ble- Field- form provided in lines 118-133. There, a line- 
overrun on input from the keyboard (detected in line 
125) results in the entire word being removed to the 
Len th next consecutive line (accomplished in lines 128-133 
and 119). 
R 1 CLR 
an om 2 PRINT"ArVARIABLE FIELD LENGTH FILES ON 3 
~>THE 2040f WPETER SPENCER" 
GOSUB108:MK=@:LL=80 


3 

a 
4 DIMPA(3Q0) :DIMTA(389) :DIMSA(390) 
5 NLS=1:D=9:F=0:X=0:Y=0:T=6 
6 


SPS$=" a 
as " 
7 MS=CHRS (13) 
8 SS="":ZS="":INS="":DIMA$ (360) :OPEN15,8, 
a15 
4 = 9 REM: PROGRAM ENTRY 
KS rive 16 PRINT"ArSfTART NEW FILE, OR rWfORK ON 3 
nOLD FILE? "; 
11 GOsUB33 
12 PRINT"NAME OF FILE ";:GOSUB119: 
Peter Soencer, AS (1) =INS 
f 13 IFSS$="S"THENGOTO22 
oe rales =e 
WEST FL, ONTOnO, 15 REM: SHOW FILE ENTRIES 
Canada MIE 3Y8 16 FORK=1TONLSSTEP15 :F=K:D=K+14 
i 17 FORI=FTOD: PRINTI;TAB(6) ;A$(I) :NEXTI 
Do you have voluminous file storage needs, but hate 18 PRINT"h";SP$;SPS$;SP$ 
to see a large fraction of each disk eaten up by the 19 oT ee ee Sere OR a 
; @ tha F ‘ i ae arEr gs UB33: IFS$="E"THENK=NLS 
empty space that seems to be an inherent feature of 20 PRINT"AYYY"; :NEXTK 
most random access programs? ; 21 REM: SHOW MENU 
This program shows how to write variable field 22 PRINT"A";SP$;SPS$;SPS 
length random access files on the 2040 disk drive. 23 PRINT"hrRfEAD IN, LOPUTPUT, LTFYPE, "; 
. ae ee ene ; we “ 24 PRINT"ySfCROLL, "; 
The density of packing is truly amazing. Compare it 25 PRINT" LEEXIT?" ¢ :GOSUB33 
to the density achieved by any fixed field length pro- 26 IFSS="E"THEN79 
gram you have, including the lengthy relative record 27 IFS$="T"GOTO116 
program in the 2040 User’s Manual. - ae Sree 
The writing to disk is done in lines 41 to 77, 30 IFSS="S"THENPRINT"A¥Y}"; :GOTO16 
and the retrieval from disk is in lines 82 to 106. The 31 GOTO22 
rest of the program is a driver routine patched on 32 REM: GET UTILITY 
from a longer program of mine. 33 GETS$: IFS$=""THEN33 
F hi 1 “s T he sed the line 34 PRINTS$:RETURN 
or this sample program, ve use is in 35 REM: READ ERROR CHANNEL 
number as the key for each field. You can easily use 36 INPUT#15,ENS,EMS,ETS,ESS 
some other key, and have more than one field per 37 IFENS="96"THENRETURN 
key. In that case, you must change the output to the ee 
: ; 4 i : es 7 ' , 
key file (lines 71-77) so that it contains the number of 49 CLOSE6:CLOSE) :CLOSE15 : END 
keys used, each key, the number of fields for that key 41 REM: OUTPUT ROUTINE 
(if variable), and the track, sector, and buffer 42 IFMK<>O@THEN46 
pointers for each field within that key. Lines 88-95 43 PRINT" INSERT DISK IN LEFT DRIVE & TYPE 7 
ia : 3GO"; :GOSUB33 
would have to be similarly changed. 44 PRINT#IS. "11" 
, 
Yes, you read the above correctly, you can even 45 OPEN6,8,6,"#":GOSUB35 
have a variable number of fields per key! Such a 46 PRINT"THERE ARE";NLS; "ENTRIES" 
variable field number, variable field length program 47 meget trary ";:GOSUB119:X=VAL (IN$) 
can be of considerable use if you want to store 48 GOSUB119 : Y=VAL (INS) 
abstracts, test questions, criterion-referenced test 49 T=X 
questions (using the criterion or instructional objec- 50 REM: ALLOCATE 1 BLOCK 
tive code ‘‘number’’ as the key), or parts inventory 51 T=1:S=9 a . 
could > the hine heikexand 52 PRINT#15,"B-A";1;T;S 
(you could use the machine name as the key, z 53 INPUT#15,ENS$,EMS,ETS,ES$ 
each part as a field, with subfields for cost, price, 54 IFENS="@6"THENS57 
onhand, backordered, and so forth). 55 IFENS="65"THENT=VAL (ETS) :S=VAL(ESS) : 
iv ine I have used can be con- >GOTO52 
The driver routine ve eeacorasa 


siderably shorter if you wish to use regular input 57 BP=1 
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Computer 
Supplies for 
Small 


Computer 
Systems 


Our full line of supplies includes: 
Dikettes (3M, basf) 
Diskette retrieval devices 


BPI Business Package for the Commodore 
Tractor Printer Paper 

Tractor Printer Labels 

Printer Ribbons for NEC, Commodore and Xymec 
Dust Covers 

Adapters 

Uncrashers 

Computer Desks 

NEC Spinwriters 

Print Thimbles 

Xymec Intelligent Printers 

“New Dealer’’ Kits 


ZEIGLER 
ELECTRONIC 
PRODUCTS 


and I have the 


ed to support b 


3061 CALUME ) 
DECATUR, GEORGIA, 33034 


MICRO 
COMPUTER 


INDUSTRIES, 
LTD. 


INVENTORY CONTROL WITH 
POINT OF SALE 
FOR CBM AND PET 32K 


DISK VERSION INCLUDES: Storage of 
2500 items per diskette, Accounts 
Receivable, Writes Purchase Orders, 
Invoices, Summaries, Post Income and 
will Sort by 10 fields. 

$100.00 


INVENTORY CONTROL 8K 


CASSETTE VERSION INCLUDES: 
Purchase Order program and Printing 
functions. 

$ 39.00 


GENERAL LEDGER 


DISK VERSION INCLUDES: The total 
functions of the Inventory Control pro- 
grams plus; Accounts Payable, Notes 
Payable, Purchases, Expenses, it also 
issues complete Reports, Statements 


and Summaries. 
$350.00 


Instruction Manual $10.00 refundable 
with purchase. 


MICRO COMPUTER 


INDUSTRIES, LTD. 


1520 East Mulberry Suite 240 
Fort Collins, Colorado 80524 
1-303-221-1955 


COPYRIGHT 1980 


% COMPUTE! September /October. 1980. Issue 6 
58 PRINT#15,"B-P:"6;BP:GOSUB35 122 IFZS=CHR$(13)THENPRINT" ":POKE167,1: 
59 PRINT#6,AS$(1I) ;M$;:GOSUB35:PRINTI;AS$(I); ARETURN 
aT;S;BP 23 IFZS=CHR$ (29) THENONSGN (LEN (INS) )+1GOTO 
66 PA(I)=BP:TA(I)=T:SA(I)=S 3121,127 
61 BP=BP+LEN(A$(I))+1 124 PRINTZS$;:INS=INS+Z$ 
62 IF(LEN(A$(I+1))+1+BP) >255THEN67 125 IFLEN(INS$) >LLTHENGOSUB128: PRINT" ": 
63 I=I+l aPOKE167,1:RETURN 
64 IFI<=YTHENS8 126 GOTO121 
65 PRINT#15,"U2:"6;1;T;S:GOSUB35 27 PRINTZ$;:INS=MIDS$(INS$,1,LEN(INS)-1): 
66 CLOSE6:GOTO72 3GOTO121 
67 PRINT#15,"U2:"6;1;T;S:GOSUB35 128 FORZ9=LEN(IN$) TO1STEP-1 
68 I=I+l 29 IFMIDS(INS$,29,1)<>" "THEN133 
69 IFI<=YTHENSO 138 Z29S=RIGHTS (INS, LEN(INS$)-29) 
76 CLOSE6 131 INS=LEFTS(INS$,29-1) 
71 REM: OUTPUT KEY FILE, OVERWRITING OLD - 132 Z9=1 
aKEY FILE IF NECESSARY 133 NEXTZ9:RETURN 
72 OPEN7,8,7,"@l:"+LEFTS$(A$(1)+SPS, 134 REM: SCREEN DISPLAY 
310)+".KEY@1,S,W":GOSUB35 35 FORI=FTOD: PRINTI;TAB(6) ;AS$(1I) :NEXTI: 
73 PRINT#7,NLS;M$; :GOSUB35 aRETURN 
74 FORI=1TONLS READY © 
75 PRINT#7,TA(I) ;M$;SA(I) ;MS;PA(I) ;MS;: 
=GOSUB35 
76 NEXTI 
77 CLOSE7:GOSUB35 
78 REM: EXIT PROGRAM 
79 PRINT"SHUT DOWN?"; :GOSUB33 
80 IFSS="N"GOTO22 
81 CLOSE6:CLOSE7:CLOSE15 : END 


REM: 
PRINT"ZREAD KEYS AND FILE FROM DISK" 
IFMK<>®THEN87 
PRINT" INSERT DISK IN LEFT DRIVE & TYPE 7 
GO"; :GOSUB33 
PRINT#15,"I1":MK=1 
OPEN7,8,7,"1:"+LEFTS(A$(1)+SPS, 
319)+".KEY@1,S,R":GOSUB35 
INPUT#7 , NLS: RS=ST:GOSUB35 
PRINT" VNLS="; NLS 
PRINT" # TR SE BP" 
FORI=1TONLS 
INPUT#7,TA(I) ,SA(I) ,PA(I) :RS=ST:GOSUB35 
PRINTI;TA(I) ;SA(I) ;PA(I) 
NEXTI 
CLOSE7 : GOSUB168 
REM: READ FILE 
OPEN6,8,6,"#":GOSUB35 
FORI=1TONLS 
PRINT#15,"U1:"6;1;TA(I) ;SA(I) :GOSUB35 
PRINT#15,"B-P:"6;PA(TI) 
GOSUB35 
INPUT#6 , AS(I) :GOSUB35 
IFTA (I) =OTHEN1O6 
PRINTI;A$(I) 
NEXTI 
CLOSE6 : GOSUB168 
GOTO22 
FORI=1T01900 :NEXTI:RETURN: REM: 
= DELAY LOOP 
REM: TYPE ROUTINE 
PRINT"LENGTH OF LINE (MAXIMUM=80)";: 
329S="86":GOSUB119:LL=VAL (INS) 
PRINT"ArTYPE NEW LINES";CHR$(13) ;"(TYP 
nE 'STOP' TO STOP))":PRINTSPS 
D=NLS: IFD>=5THENF=D-4 : GOSUB135:GOTO114 
F=1:GOSUB135 
PRINTNLS+1;CHRS$ (13) ;"1";TAB(4 
GOSUB119:IFINS$="STOP"THEN22 
AS (NLS+1) =INS 
NLS=NLS+1:GOTO111 
REM: BULLET-PROOF INPUT 
INS="":IFZ9S<>""THENPRINT"? ";Z9S;: 
3POKE167 , 9: INS=Z9$:29$="":GOTO121 
PRINT"? ";:POKE167,G 
GETZ$: IFZS=""THEN121 


ATTENTION 
COMMODORE 
DISK OWNERS 


Never sort another disk file! 


With Creative Software’s ISAM file handling routine, your files 
are always maintained in sorted order. 2K bytes of assembly 
language subroutines allow you to: 


© CREATE a new ISAM file 
© OPEN an existing file 
¢ READ key and data from file 
WRITE key and data to file 
READNEXT key and data from file 
DELETE key and data from file 
CLOSE file 
SUPPORTS up to 5 open ISAM files simultaneously 


Available for 16K or 32K CBM computers and 2040 disk units 


$99.95 + $2.50 shipping 


Soon to be available for CBM 8016 and 8032 computers with 8050 disk 
drive. Manual available separately for $15.00 


Creative Soffware 


P.O. BOX 4030, MOUNTAIN VIEW, CA 94040 
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DOWNEY, CA 
(213) 923-9361 


Serving Computer Centers 


FAMILY OWNED & OPERATED 


(even “‘no-relation” associates are family) 


Data Equipment Supply Corp. 
8315 Firestone Blvd., Downey, CA 90241 


4 commodore 


SOLID GOLD $OFTWARE® 


DES’s own—2 years preparation! Writing, 
testing and updating to be sure our software 
deserves this lable. 


@ FULL ACC’T. PACKAGE ....+.-$1600.00 
ACC/SYS GA 104 (32K) 9 DISKS 
For accountants & small businesses 
(Sold locally only for now—to give customer full support) 
@ LAWYERS Package #1 (32K) Disk... $1200.00 
63 Attorneys, 5200 clients (200 matters ea) 
Prelim & Final Statements, Aging, Mgmt Rpts 
e@ CHEMISTRY PROFILE (16K) .. $350.00 
A blood analysis program that yields a diagnosis 
based on 29 blood tests (high-normal-low) 
@ MLS (32K min.) Disk .... . $1200.00 
(Property avail, sold, by city &: zone, mg ‘mt 
analyst rpts, buyer & seller rpts, etc.) 


“GOLD PLATED $OFTWARE®” 


SPORTS 
e@ HOCKEY #1 (Disk) ..... $29.95 
Compiler for hockey statistics—excelle nt for team and 
league managers. (When tested on a 17 team league 
SAVED 20 hours a week of record keeping) 
BASEBALL #1 (see Hockey) (Disk) .....$29.9 


BUSINESS 
MAILING LIST 1.0 (16K min.) oars 29.95 
Maintains file and printout 
MAILING LIST 2.0 (16K min.)... . $49.95 
More powerful plus file merging 
SUPER LIST (8K min.) $19.95 
(Advanced listing J features) 
CALENDAR (8K min.). $19.95 
(Perpetual calendar with printout) 
PHONE MAIL SYSTEM (16K min.) $49.95 
CBM Printer (Word processing plus phone book) 


EDUCATIONAL 
FLASH CARDS (16K min.) $24.95 
Multi “user input” quiz - great study aid 
MATHEMATICS (8K min.) $7.95 ea 
A) Add B) Subt C) Multi D) Div 
“BRANDI'S SPELLING BEE"(8K min). .. $9.95 
(SUPERB Aid Pre-School - 2nd) 
VISUAL PERCEPTION (8K min) $7.95 
Shapes & Sizes 
CONSONANT BLENDS (8K min) LS 
2 letter sound combinations 
COUNTING | to 9(8K min) $7.95 
Visual — tutorial 


MAY 1941 (8K min.) $24.95 
Simulated tracking & sinking of the Bismarck 
SIMON (8K min.) $7.95 
Duplicates the numbers & sounds selected 
GUESS?? (8K min) $7.95 
Full graphic sound, guessing game 


He The Finest Software Crew in the World’ 
Mike Richter Norm & Brad Hanscom Sy Elsayess 


David Schwantz Donna Schlieper/ Bob Johnson 
Dave Lundberg Murat Kalinyaprak/ Henry Kluka 


SUPPLIES 
(WE PLAN. WITH OUR PRICES, TO CORNER THE MARKET)! 
DISKETTES AFLOEEIES). 
BASF (5%" & 8") .. sag vaene sss 290 008. 
MEMOREX (5%" & 8" Vistas tae snes 129008. 
WABASH (8") are E .. 2.65 ea. 
DYSAN (5%4" & 8"). enna auisie AO ORy 
CASSETTES (Digue & Audio) 
BASF.........0055 . (C30 - .90¢; C60 - $1.20; 
“C90 - $1.50; C120 - $1.75) 
KEYLINE (Digital Only)... ; 
RIBBONS 
CENTRONICS 
101 & 301 . 
TALLY (2100 & 2200)......- 
DIABLO 
Hy Type 1 
Hy Type Il... sg 
see ee on #13 (use on n CBM) 
QUME. ‘ s 
PRINTRONICS. ..... 
DEC LA30 - $4.25 / LA180. 
PRINTER PAPER (V’ us for case prices) 
9% x II (perfs to 8% x 11) 500 shts.. 
14% x 11 500 shts ... 5 


Your Complete 


Computer Center 


—SEND FOR DESCRIPTIVE BROCHURES— 
ALL AVAILABLE ENGLISH/ARABIC 


. DATA EQUIPMENT SUPPLY CORP. 
“S 8315 Firestone Blvd., Downey, CA 90241 
(213) 923-9361 


PAYMENT (Calif. Residents add 6% Sales Tax) 

O CHECK # 

QO VISA 

O MASTERCHARGE 
Acct. # 


Exp. Date 


Name 
Address 
City 
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. . : 
mits cursor controls to enter the strings. In such 
exi e situation cursor-left, for instance, will ride over the 


string, flashing each character it encounters. 


At this point we are about even with the IN- 
or e e PUT statement. GET can do what INPUT can do. 


We are a bit better off in that we can go up and 


Elizabeth Deal down with our fake cursor. We will be much better 
Malvern, Pa. off when we disable Pet’s quote mode with 
This article describes a few ways to achieve a flexible POKE205,0. Pet keeps track of an open quote in 
GET routine that includes a flickering cursor, possi- location 205, and causes several graphic characters to 
ble use of cursor keys other than left or delete and be printed when you want to quote something in 
disabling of the Pet’s quote mode, which is useful in reverse or use cursor keys. Pet also makes it very dif- 
several other applications. ficult to quote a quote. POKE 205,0 solves these 

The conceptual problem of substituting GET for problems. There is one restriction, however. The 
INPUT has been solved by Pet users, most recently string must be printed on the screen one character at 
by Mr. Bruey (Compute #3) and Mr. Greenberg a time, as in line 290. It also must be input from 
(Compute #4). It is a good idea to read those two ar- tape using a GET# statement (see lines 670-700). 
ticles before using GET. It is essential to use input Printing a string one character at a time solves 
edit routines for any math application as outlined by another string work problem-that of strings contain- 
Mr. Bruey. ing comma or colon. At this point a string can con- 

The program presented here is a simple one. tain anything, which INPUT cannot match. 
REM lines describe how to expand it for a more POKE 205,0 and printing one character at a 
complex use. It uses cursor left to make corrections time are valuable tools in applications other than 
and it permits all ASCII characters that are printable GET. For example, one can have a very decent 
to be in a string in a non-graphic form. The program screen image save and print back routine that 
does not use the delete key, for it can disturb infor- duplicates every character in the least amount of tape 
mation already on the screen. Which other cursor or disk space. 
keys are permitted to work and which, if any, are 179 
permitted to become part of a string depend on ap- 186 
plication. In some situations it may be desirable to Poa Pri G55 sila G6=198: 
permit the return key and cursor down to become ~GE+G7 :GU=20 :GM=GU4G7 
part of a string — for instance in a multi-line input 200 =0:GA=0:GS=0:GP=9:GF=0 
or in input in a tabular form. Those decisions are 216 MAIN PRG-ILLUSTRATION====== 
put around line 360. The instructions in REM lines 22 PRINT"TYPE "XX! TO QUIT OR A STRING + + 

. ne 6 i Ban eines aRETURN": PRINT: PRINT"FOR INSTANCE 
show how to avoid passing the beginning of a string 230 ES=CHRS$(34)+"rRVS_IN QUOTES? "+CHRS (34) 
with the cursor going back or up and how to signal a+CHRS (44) +" COLON"+CHRS (58) +" COMMA" 
the end of input by a return key at the logical end of 240 ES=ES+CHRS$(44)+" QUOTE"+CHRS(34)4+"**": 
the string. >FORJ=1TOLEN(E$) : PRINTMIDS(E$,J,1); 
. . oa 250 POKE265,9:NEXT: PRINT 

The program uses several pointers that the Pet 360 : 
updates with each PRINT for its own use. These 270 L=GX:GOSUB310: IFGGS$="XX"THENEND 
pointers locate the cursor on the screen. The pointers 286 LL=LEN (GG$) : IFLL>LTHENPRINT:PRINT"TOO = 
are in locations 196-198 in the new Pet. Line 760 of 58% Pee Se ae PREMIER EOE a4) se 
the program shows an untested conversion for the old SPOKE205 , 0: NEXT: PRINT: PRINT Got0270 
Pet. It is by use of the values of these pointers that 300 REM 
we keep the cursor within desired limits. Comparison 310 GG$="":PRINT""; :GOSUB390 :GS= 
of the starting position, GS, with the current posi- ace ee a Eee ea 
tion, GP, can be performed in various ways depend- 340 IFGA=GHORGA=GDORGA=GLOR (GA=GT) ORGA=GEO 
ing on what sort of input one needs. ARGA=GUORGA=GMORGA=GRGOTO329 

The same pointer is used to flicker the cursor 359 GP=GP-G1* (-(GA=GV) ) : IFGP<GSGOTO326 
during the time the Pet is waiting for input. Lines 366 ees ee 
390 and 400 show how it is done. (Line 400 shows 379 6G$=GG6$+G$:GOT0320 
an additional poke, more about it later). EXCLU- 386 RETURN mek a 

JE- i s of the position 396 GP=PEEK (G4) +G8*PEEK (G5) + : 

ce ye sh et cme a ee oe the 3GOSUB489 : GOSUB480: POKEGQ, GO: RETURN 
under the cursor wit et : ; 400 GF=PEEK (GP) : POKEGP, (G7ORGF) AND (NOT(G7A 
necessary reversals. In case you provide no prompts NDGF) ) : RETURN 
to the user, a harmless PRINT’’”’ is in this routine 419 REM 


to flash the first position before the first character 429 REM 

i f usi imi 439 REM 1.FLASHING CURSOR AND DISABLE 
comes in. The advantage of using a method similar SE ND Pee e ee 
to the one Pet uses becomes obvious when one per- 449 REM OF QUOTE 
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450 REM 2 LINES OF THE GET ROUTINE. 
469 REM 2.CURSOR LEFT CAN BE USED TO 
470 REM MAKE CORRECTIONS IN INPUT 
480 REM 3.ALL OTHER CURSOR KEYS ARE 
499 REM DISABLED , BUT THE ROUTINE 
500 REM CAN BE CUSTOMIZED TO USE 

510 REM ANY DESIRED CURSOR KEYS LIS- 
520 REM TED IN THE INIT SECTION 

530 REM GS = STARTING CURSOR POS 
540 REM GP = PRESENT CURSOR POS 
559 REM 4.FOR CURSOR LEFT OR DELETE: 
560 REM STAY IN GET LOOP IF GP-1<Gs 
570 REM 5.FOR CURSOR UP: STAY IN GET 
588 REM LOOP IF GP-40<GS 

598 REM CURSOR MUST COME DOWN TO THE 
600 REM LAST CHARACTER ON THE LAST 
619 REM LINE IF IT WAS ABOVE IT, OR 
628 REM SOME INFO WILL BE LOST 

630 REM 6.YOU MAY USE QUOTES, RVS, 

640 REM COMMA, COLON WHERE ALPHABE- 
650 REM TIC INFO IS PERMITTED 

660 REM 

676 REM 7.TO TAPE: PRINT#FF,GG$ 

686 REM FROM TAPE: 

698 REM 2 GET#FF,V$:CHECK STATUS: 
706 REM 4 PRINT V$;:POKE205,0:GOTO2 
710 REM 

726 REM 8.FOR OLD ROMS+SMALL KEYBOARD 
730 REM SUBSTITUTE THESE VALUES IN 
749 REM THE 1ST LINE (NOT TESTED !) 
750 REM 

760 REM G4=224:G5=225:G6=226:GQ=234 
770 

786 © 
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PARALLEL 


DISASSEMBLE YOUR UNIT TO CHANGE THE ADDRESS: 

AS SETTING THE DIP swi S$ SELECTABILITY ALLOWS 30TH YOUR 

painter (NEC SPrnwr YOUR GRAPHICS 221NTER 
IME BUT USED SSING 


EACH IT 


Cur INTERFACE ?R0OVIDE 
NEED TO BUY OTHER cAal 
THE COMPUTER, 


IN OF 
BECAUSE 
© FROM THE 


ATE THE ANDERSON-JACoBSON AJS4] and Ti 
Systems, [N FACT WILL ORIVE ANY PARALLE! 
AND 2 HANDSHAKING L 


2 YOUR MONEY, THEN SLA 


yopay, 
DON'T DELAY . 

PLEASE SPECIFY YOUR 
PRINTER YOU 
ALL ORDERS su: 
MARYLAND RESIDENTS ADI 


ar COD cast. App $5 FoR sHt 
SALES TAX. 
P.O, Box I 
Puone (301) 
SPET/CRM are teagenares of Comocore dus iners “achines 


LemData Peooucts. Covumara, Mo, 21044 


UNDERSTANDING YOUR PET/CBM 
Volume I: Basic Programming 


Money Back Guarantee 
SS 
os 
=a 
Dealer Inquiries Welcome 


‘See your 
dealer 


New 248-page book includes all the former TIS workbooks 
except “PET Graphics.” Provides information for both ROMs and 
a comprehensive index. Only $14.95. 


Also from TIS 


WB-3 PET Graphics $4.95 


Software products on cassette or floppy disk with complete instruction 
manual, Each $24.95 (cassette), $29.95 (diskette) 


SW-1 MAIL B mailing list system 

SW-2 CHECKBOOK record 

SW-3 ACCOUNTS keep track of who owes you how much 
SW-4 MEDIT create and maintain date files 

SW-5 CALENDAR appointments, meetings at-a-glance 


TIs 
P.O. Box 921, Dept. C 
Los Alamos, NM 87544 


PET and CBM are trademarks of Commodore Business Machines 


Add $2 ($5 foreign orders) 
shipping and handling 
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(l PET Products 


from 


OPTIMIZED DATA SYSTEMS! 


— SOFTWARE — 
(Prices include Shipping) 


@ WORD PROCESSOR (PS-001) ... . $16.95 
Makes documents a snap 

@ MAILING LIST (PS-002) 
Throw away your address book 

@ SPACE EATER (PS-003) 
Gobbles spaces in BASIC programs 

@ CATALOG (PS-004) $ 
File stamp/coin collections 

e@ SATELLITE TRACKER (PS-005) . $24.95 
Tracks OSCAR Ham Satellite 

@ MORSE CODE KEYER (PS-006) . . $14.95 
Sends code for real or practice 


— HARDWARE — 
(*Shipping $1.50 per order) 


@ 2114 RAM ADAPTER 
Replaces up to 8-6550s w/2114s (See COMPUTE #5, 
p.81) 
PHB-001 Bare PCB 
PHK-001 Kit... . 
(PCB & Parts 
PH-001 Assembled . . 
(Assembled Kit with one 2114 IC) 
PH-001S Assembled 
(Assembled with eight 2114 sockets) 
WRITE FOR DETAILS — NOW! 
OPTIMIZED DATA SYSTEMS 
P.O. Box 595, Placentia, CA 92670 


(PET is a trademark of Commodore Business Machines) 


SJPow 
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ROM-antic 
thoughts 


Jim Butterfield, Toronto 


Here comes another ROM set or two from Commo- 
dore, and once again the user will need to take the 
decision: should he upgrade? 

It’s a tough question. If he does, it will cost 
money, and some of his programs may cease to work 
until they have been modified. If he doesn’t, he’ll 
be left behind and won’t have access to some of the 
new goodies. 

Basic programs will, as always, remain compati- 
ble, so long as they don’t bristle with obscure 
PEEKs and POKEs. Machine language itself doesn’t 
change, but programs which use routines built into 
the ROMs will need changing since the routines will 
have moved to new locations. Some commercial 
machine language programs will survive transfer to 
new ROMs, but many won’t. 

A more subtle problem creeps in. As the machine 
is enhanced, programs will start to use the new 
built-in features, and users may find themselves having 
to retro-convert these so that they will run on older 
systems. A command such as DOPEN is convenient 
and compact, but users who haven’t converted up will 
have to translate this to the appropriate OPEN 1,8,3 ... 
command. New disk features will be particularly 
noticeable for this. New systems, for example, won’t 
need to initialize disk and will offer very simple disk 
error checking; older systems will need to add extra 
coding to do these. Some new disk features such as 
APPEND or Relative files have no counterpart on the 
old systems. 


Some terminology 

Commodore are currently referring to ROM sets by 

means of a numbering scheme. They translate 

roughly as follows: 

Basic 1.0 Original ROM, as fitted in the early 4K 
and 8K PETS. Not good for disk I/O; 
arrays limited to 256 elements; cassette tape 
files a little awkward. 

Basic 2.0 Upgrade ROM, fitted on more recent 
machines. Garbage collection still a problem. 
Keyboard/disk interface rather clumsy. 
Built-in Machine Language Monitor. Line- 
feed output to IEEE a minor problem. 

Basic 4.0 New ROM, currently being released. Disk 
commands built into Basic. Garbage collec- 
tion fast, and Linefeed problem eliminated. 
Uses more ROM space. Available for both 


40- and 80-column machines, but not for 
original PET 8K hardware. 

Basic 5.0 Business ROM, not yet released. Rumoured 
to have many Basic enhancements, including 
high-precision decimal arithmetic. 

Basic 2.0 and 4.0 have alternate versions for the two 

types of keyboard -- graphics or business. 

Disk systems: 

Dos 1.0 Original 2040 disk system. INITIALIZE 
command needed; RENAME sometimes 
doesn’t work. 

DOS 2.0 New system, currently being released. 
INITIALIZE not needed but allowed. Rela- 
tive files and APPEND command imple- 
mented. Fast BACKUP command. Can be 
retrofitted to early 2040 units. The new 
8050 disk system will have characteristics 
similar to DOS 2.0. 

Printer ROM systems haven't settled down yet. 

There are two systems available, but both have minor 

problems; a third is rumoured. 

Upgrading: the Options 

Users who still have Basic 1.0 should upgrade, at least 

to Basic 2.0. There are too many good things 

available. 

The original 8K machines cannot be readily up- 
graded beyond Basic 2.0; their hardware won’t support 
Basic 4.0. 

It’s not necessary to upgrade both Basic and DOS 
ROMs at the same time, but it’s probably a good 
idea. Basic 4.0 and DOS 2.0 work harmoniously 
together. 

Switch to Basic 4.0 if you need any of the 
following: 

--to be up to date with the latest software; 

--to eliminate garbage collection delays; 

--to allow inexperienced users to use the disk 

with more natural, English-like commands. 

Switch to DOS 2.0 if you want to take advantage 
of the new APPEND feature or the powerful relative 
file structure. 

Summary 

If you still have original ROMs (the ones that say*** 

COMMODORE BASIC *** upon power-up), plan to 

upgrade. 

It’s your option as to whether you want to switch 
to Basic 4.0 and DOS 2.0. If you like the new 
features, go ahead. But you'll still have a good, 
serviceable system if you stay with upgrade ROM 
(Basic 2.0). 

Upgrading the disk file can be treated as a 
separate question. The original unit is excellent for 
program saving and loading. But if you plan to do a 
lot of work with data files, the new features of 
DOS 2.0 can look very attractive. 

It’s your choice. 1o 
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-PET,AIM,SYM,KIM OWNERS - 


*Tired of waiting for your cassette? 


*Want versatile, inexpensive expansion? 


*Want IBM floppy disk compatibility? 


PEDISK! 


THE IBM COMPATIBLE FLOPPY DISK 
SYSTEM WITH 5%” or 8” DRIVES 


*Want professional, sophisticated file handling? 


*Want consistant, reliable operation? 
‘Want simple, easy-to-use disk k syntax? 


CRS/PDOS 


A NEW SOPHISTICATED DISK 


OPERATING SYSTEM 


“Want a Bicompatble e disk- based Editor/Assembler? 


~NEW PET OWNERS: 


__CRS/ASM 


PEDISK IS AVAILABLE FOR NEW PETS TOO! 


AIM,SYM,KIM OWNERS 
PEDISK ADAPTOR IS NOW AVAILABLE! 


PEDISK PACKAGE f 2 ccuscsisascnaneemanes $799.95 
5" DISK SYSTEM, CASE AND POWER SUPPLY 

PEDISK PACKAGE? 2.200 2000n 4 seuss daeree $895.00 
5” DISK SYSTEM, $100 CARD CAGE, CASE AND POWER SUPPLY 
PEDISK PACKAGE 2B, ccccsusns scien nates naar iiss $495.00 
ADDITIONAL 5” DISK DRIVE, CASE AND POWER SUPPLY 
PEDISK PACK AG BS oo scsi it siiuase ainigeainndes $1495.00 


8" DISK SYSTEM, S100 CARD CAGE, CASE AND POWER-SUPPLY 


*NEED MORE ROM ROOM? 


Toolkit and Word Pro II occupy the same rom space 
in your PET! No problem for Spacemaker. Simply 

install both in the Spacemaker and switch back and 
forth. Add User I/O and you can switch under soft- 


SPACEMAKER . 
DINGS: oasseg is aemin ne masem a scene ec uees, anitannetad 
CABLE ASSEMBLY AND SOFTWARE ON COMMODORE OR 
PEDISK DISK 


PORE ER pc aims eu atek eam g sand ea eree.e $39.00 
PORT CONTROL BOARD WITH SOFTWARE LISTING 
ROM: i4i3-d nrusweniwsvameyraak seewed ay $9.95 


ROM DRIVER SOFTWARE ON COMMODORE OR PEDISK DISK. 
SEE YOUR LOCAL DEALER OR CONTACT: 


EXS100 DISK CONTROLLER BOARD .......... $49.95 
BARE BOARD 

EXS100 DISK CONTROLLER KIT... 2.200525 $225.00 
AIM,SYM,KIM ADAPTOR KIT.........-..---. $25.00 
CRS/PDOS SOFTWARE SYSTEM ...........-- $75.00 
SPECIFY OLD OR NEW ROMS, MEMORY SIZE 8K, 16K, 32K 
CRS/ASM EDITOR/ASSEMBLER ............. $150.00 


SOFTWARE AVAILABLE ONLY FOR EXS100, PEDISK OWNERS 


The Spacemaker_ 


ware control from the user port. User port occupied- 
then get Romdriver, a built-in switch control port. 
Spacemaker can grow as your switching problems do. 
Don't get caught behind in the ROM RACE. 


MICROTECH 
P.O. Box 102 
Langhorne, PA 19047 
215-757-0284 


PEDISK, Spacemaker is a trademark of CGRS Microtech 
Pet, Kim is a trademark of Commodore 

Aim is a trademark of Rockwell 

SYM is a trademark of Synertek 

Toolkit is a trademark of Palo Alto KS. 
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Converting 
ASCIl Files to 
PET BASIC 


Harvey B. Herman 

Chemisiry Department 

University of North Carolina at 
Greensboro 

Greensboro, North Carolina 27412 


Recently I have been experimenting with a program 
(not discussed here) which makes PET into a ter- 
minal (CompuMart T/C 2001 terminal option) which 
can communicate with remote computers. Normally, 
the characters that are received by the PET, when 
acting as a terminal, are displayed on the screen. I 
modified the program to optionally save the 
characters (ASCII Code) to a reserved area in high 
memory (approximately decimal 8192 and above). 
Obviously, this program required memory in this 
area and will need to be modified for an unexpanded 
8K PET. The question one might ask is, ‘‘What can 
I do with an ASCII file in high memory?’’. This ar- 
ticle is intended to answer that question. 

Commodore’s PET is not the first computer I 
have worked with and I suspect the same may be 
true for many readers. I have spent many hours 
developing BASIC programs on remote computers 
for use with my research and in my teaching. It 
would be advantageous if I could also use these pro- 
grams (suitably modified) on the PET. I have no 
strong desire to retype all these programs again. If I 
could convert the ASCII file of a program listing 
made by a terminal program into a PET BASIC pro- 
gram it would save immense amounts of work. Any 
minor changes could then be done with the screen 
editor. 

The program called ASCII shown in the figure, 
converts ASCII files in high memory into BASIC 
programs. It is intended for use with expanded PETs 
with ‘‘old’? ROMs. The POKE locations in state- 
ment number 63290, 525-527-528, need to be chang- 
ed to 158-623-624 for ‘‘new’’? ROMs. The program 
uses the dynamic keyboard idea of Mike Lauder (see 
Best of PET Gazette). It writes two lines on the 
screen and puts two carriage returns in the keystroke 
buffer. The first line is a BASIC statement taken 
from part of a program listing saved in high memory 
by the terminal program. The second line is an im- 
mediate mode statement which restores a memory 
position counter and jumps back into the main pro- 
gram again. It is necessary to remember the current 
position in high memory because all variables were 


set to zero after the previous step. This is true 
whenever a new BASIC statement is added to a pro- 
gram, as in this case. All the new BASIC statements 
are added to the front of the main program which 
was purposely written with very large statement 
numbers. At the conclusion of this program, the 
statements belonging to the ASCII program can be 
deleted by hand or with The Programmer’s BASIC 
Toolkit. 

The ASCII program can be used to do a minor 
amount of editing ‘‘on the fly’’. Some of my original 
programs were done on a computer which uses ‘#’ 
instead of ‘<>’ and I included a conversion in 
statement 63180. Also ‘[’ and ‘]‘ were used in place 
of ‘(’ and ‘)’, in some places and this conversion is 
done in statements 63160 and 63170. I also removed 
‘7 (bel character) from the programs. Besides giving 
a syntax error later when run on a PET program, 
the inclusion of ’7 occasionally caused lines to be 
over 80 characters long. This stopped the ASCII pro- 
gram with a syntax error which then had to be 
manually restarted. All these programmed editing 
changes saved a lot of manual editing later. 

The end of my ASCII files is signified by the 
ASCII character 4, otherwise the program might 
continue indefinitely, adding unwanted BASIC 
statements, or garbage. This check is done in state- 
ment 63200. It should reach this point and stop if 
each line begins with a number, is less than 80 
characters long, and the counter in statement 63070 
is positioned to the beginning of the ASCII listing in 
high memory. Conversion to PET syntax, if re- 
quired, would begin here. 

I have used the ASCII program to convert very 
large ASCII files to PET programs. The same pro- 
gram should be useful when I acquire CP/M ASCII 
files on 5-1/4’’ diskettes. The disk and operating 
system which I am using (PEDISK and Wilserv Soft- 
ware) can read CP/M files, and the ASCII program 
discussed here, will convert them to PET BASIC 
programs. 


63000 REM PROGRAM CONVERTS AN ASCII FILE - 
aIN 

63010 REM HIGH MEMORY TO A PET BASIC 7 
3PROGRAM 

63920 REM HIGH MEMORY BEGINS AT $2617(8215 
3 DEC) 

63030 REM 

63040 REM HARVEY B. HERMAN 

63050 REM 

63060 REM I IS MEMORY COUNTER 

63070 I=8215 

63080 REM THROW AWAY FIRST LINE 

63096 A=PEEK(I) : IFA<>13THENI=1+1:GOT063090 

63100 PRINT"Avyy" 

63118 I=I+1 

63120 REM NEXT CHARACTER FROM ON HIGH 

63130 A=PEEK(I) 

63140 REM REPLACE [ & ] WITH ( & ) 

63158 REM REPLACE # WITH <> 
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63160 IF A=9l1 THEN A=46 

63176 IF A=93 THEN A=41 

63189 IF A=35 THEN PRINT"<>";:GOTO63119 

63199 REM CHAR $04 AT END OF FILE 

63200 IF A=4 THEN STOP 

63219 REM THROW AWAY '7 

63220 IF A=39 THEN IF PEEK(I+1)=55 THEN - 
aI=I+1:GOTO 63118 

63230 REM PRINT BASIC LINE ON SCREEN. 7 
AFTER CR 

63249 REM PRINT NECESSARY VARIABLES AND 1 
3PUT CR 

63258 REM IN KEYSTROKE BUFFER. END PROGRAM 

63268 REM INCORPORATE LINE AND BEGIN AGAIN 

63276 PRINT CHRS$(A); 

63286 IF A=13 THEN PRINT"I=";1;":GOTO63166 
shy" 

63296 IF A=13 THEN POKE 527,13:POKE528,13: 
aPOKE 525,2:END 

63398 GOTO63119 © 
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commodore 


Your Commodore Dealer 
in CANADA 
We stock the full line of 
PET and CBM products and accessories. 
OFF THE SHELF DELIVERY 


SOFTWARE — HARDWARE — SERVICE 
Best Book Selection In Town 
BEST BOOK SELECTION IN TOWN 


Dust Covers: Pet Cover ............. $11.95 
FIOPPY COVER ssc asnanes¢ 9.95 
Printer Cover (old) ........ 9.95 
Printer Cover(new) ....... 9.95 


Trade-in Your Old PET For 
The Latests Models 
HOUSE oF COMPUTERS inc. 


368 EGLINTON AVE. W. (at Avenue Rd) 
TORONTO, ONTARIO MSN 1A2 


(416) 482-4336 


IEEE-488 BUS 
SYSTEM BUILDING BLOCKS 


For Commodore PET/CBM and other computers... 


TNW-2000 


TNW-1000 Serial Interface: $129 


TNW-2000 serial intertace: $229 

TNW-232D bua! Serial Interface: $969 
TNW-103 jodem: $389. 
SOFTWARE =" 


PLUS 


Telephone Modem: $389 


tc PAN: 


3) 


Write or call for information today: 


TNW Corporation 
3351 Hancock Street 
San Diego CA 92110 


(714) 225-1040 


NEW !! 


Programs for Commodore's PET® 


eBusiness Research $50 
Make better decisions with this 
high power MBA business tool. 16k. 


@Home & Small Business $15-$40 


eAddresser elnventory 
e@Shopper @Dinner's On! 
Each has a built-in printer option. 


eGames & Simulations $15ea, 


®Fur Trapper @High Seas 
eMansion! @Pentagon! @Museum! 


@Education Pack $15 


High School sampler with 
geometry, algebra &chemistry. 


Send for full catalog! 
a 
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HARRY H. BRILEY 


P.O. Box 2913 


Livermore, CA 94550 
(415) 455-9139 
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Compactor 


Robert W. Baker, 

Baker Enterprises, 

15 Windsor Drive, 

Atco, NJ O8OO4 

This program is the result of several days of ex- 
perimenting with BASIC program structures and the 
2040 disk. In short, the program will read a BASIC 
program that was saved on disk and create a new, 
compacted copy. The program will delete all 
REMarks, unnecessary spaces, and leading colons. 
Much of this is similar to other utility programs cur- 
rently available. However, this program goes one 
step further. It combines program lines whenever 
possible to eliminate the link, line number, and line- 
end-flag overheads normally associated with each 
line. It will make a program as small as possible, and 
most likely faster running. 

While creating this program, I came across a 
few undocumented ‘‘quirks’? of Commodore BASIC. 
Since many people are currently experimenting with 
the capabilities of having programs ‘‘write’’ pro- 
grams on disk, this information may be of interest: 


Zero Length Lines: 


Normally, it is impossible to create a zero length 
line using the screen editor on the PET. By 
zero length line, I mean a line with a link, line 
number, and end-of-line flag; but no BASIC 
commands or text. If you were to type just a 
line number using the screen editor, you would 
actually delete a line instead of entering a zero 
length line. However, when writing a BASIC 
program on disk as a data file there is nothing 
stopping you from entering a zero length line. 
But if you want the program to run, you cannot 
have any zero length lines in the program. 
BASIC cannot link the program lines correctly 
whenever there is a zero length line in the 
program. 


Long Lines: 

At the other extreme, you cannot create a BASIC 
line that is longer than 255 bytes. Again, using 
the PET screen editor you could not create such 
a line. You are normally limited to a maximum 
of 78 bytes due to the line wrapping character- 
istics and at least a one digit line number. When 
writing a BASIC program on disk as a data 

file, be careful not to create a line greater 

than 255 bytes. Otherwise the program will 
usually not load from the disk. If it does load, 
the program will be totally destroyed and 
unuseable. 


Printing Long Lines: 
Here’s a quick comment on the Commodore 
printers. If you list a program that contains 

lines longer than 80 characters, the printed 
listing may be incorrect. It appears that the printer 
sionally switches out of listing mode and into 
print mode when a line exceeds 80 characters. 


Occe 


At the start of the next line everything is 

ok again. 
Program Description 
When running the COMPACTOR program, the 
BASIC program to be compacted must be on the 
diskette inserted in drive #0. The new compacted 
version will be written on the diskette in drive #1 with 
the same filename, but with a ‘‘/C’” suffix. The 
program will read the program to be compacted as 
a sequential disk data file, and the file will be 
read twice. 

The first pass checks for line numbers within the 
subject program that are the targets of: GOTO, 
GOSUB, or IF... THEN. .(line#) statements. When 
a target line number is found, it is saved in matrix 
TL if not all ready saved. A check is also made for 
multiple target lines in ON..GOTO and ON.. 
GOSUB statements. Each target line will be displayed 
on the PET screen in the order found. This helps 
give some indication of the scanning progress since 
it can be rather slow. 

During the second pass, each line is copied, 
deleted, or compacted as appropriate. The line 
number will be displayed as each line is proce 
to let you know how the program is progressing. 
The rules followed by the COMPACTOR are as 
follows 


' 
SCG 


Any leading colons and/or spaces on a line are 
deleted. 

A line that has only REMarks is deleted if it is 

not a target line. The remark will be replaced with 
a single colon if the line is a target line and must 
be retained. This may produce a leading colon if 
the next line is not a target line and is combined 
with this line. The line cannot be reduced to a zero 
length line since BASIC cannot link a program 
correctly with a zero length line, as mentioned 
earlier. 

If any line contains an IF... THEN or GOTO state- 
ment, another line cannot be combined with this 
line. Any line combined after these BASIC commands 
would never be executed, thus the program would 
not function properly. 

Any spaces within a line, not enclosed in quotes, 
are deleted. 

Any REMarks at the end of a BASIC line are 
deleted to the end of the line. 

Anything within quotes is copied, untouched. If an 
ending quote is missing from the line, one is 
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PET SOFTWARE 


LAS VEGAS CASINO SERIES: 


These four programs were developed both as a tutorial for those planning to visit a Casino and wanting to learn to play correctly, andasa 
means for the serious gambler to develop and thoroughly test a gambling ‘system’ under actual Casino conditions. All betting odds and 
options available in the Casino of the MGM Grand Hotel in Las Vegas have been incorporated into these programs. Full screen graphics 
have been used to show the cards being dealt, the Roulette Wheel spinning, and the Dice being thrown in order to increase realism and 
heighten enjoyment. 


1. Casino Blackjack: 
For 1 to 5 players plus the dealer. Keeps track of winnings or losses for each player plus number of hands 
won, lost, and tied and the number of times the dealer and each player has busted. Play with 1, 2, or 4 
decks. Change decks or reshuffle at any time. Split pairs, Double Down, or place an Insurance bet. 
Full Casino rules and many other Options ........... 0... ccc e eee teen een eee nen e eee e een n eens n cent ence netstat ereenee $ 7.95 


2. Casino Roulette: 
Bet on one number, two numbers, odd, even, black, etc. Watch the numbers come up as the wheel spins. 
Twelve ways to bet... 


3. Casino Baccarat: 
James Bond's favorite game. Two games in on. Casino style and Blackjack style. Includes special 
features to help in developing a winning ‘system’ ...... 2.066.202 eee cece ete ee tee tee tener ene etree ete eee ent eee n eee es $ 7.95 


4. Casino Craps: 
Bet the Dice to Pass or Fall Off. Bet the Hardway or Press with Double Odds. 
Ten ways to bet 


5. Casino Package: 
All four Casino Programs above 


STRATEGIC GAMES: 


6. Backgammon: 
Play Backgammon against your PET. Excellent graphics and doubling option 
make for a fast and exciting game ...... 2.2... eee e cece tn nnn ener e enn rete e nen e ener enn e een e es $ 9.95 


7. SP(*) INTRUDERS: (WITH SOUND) 
Written by COMMODORE-JAPAN. Performs exactly like the popular video arcade version being played all 
over the country. Machine language graphics and sound provide hours of entertainment ........-...-.05--se essen eee eee e ee $ 9.95 
Please specify which ROM set your PET has. 
8. Checkers: 
Play against the PET. PET plays a good, fast game according to International Checker Rules. Excellent 
graphics show the board and all checkers. Watch your PET move his man around the board. Clock shows 
elapsed time for CaCh MOVE ...... 6. ice eee e eee eee n eee een een n ete e eee n cere nese eet e nate eee e nee e een e earn nes $ 7.95 


9. Qubic-4: 
This is three dimensional Tic-Tac-Toe played on four, 4 x 4 boards. PET plays a fast exciting game 
choosing one of three strategies for each game. . 


10. Go Moku: 
Ancient Chinese board game played on a 9 x 9 board. Get 5 men in a row before your PET. A different 
Strategy TOF GACH GAME. 3 cee sise.ssecesieseaagane sie sisaig RISEN THR Walel adnan wna Raanipe Tes REWSD MLM aeticalees mealies have ele $ 7.95 


11. Othello: 
English game known as Reversi. Try to capture the PET’s men before he captures yours. Play against the 


PET or against your friends. Fast and fun $ 7.95 
12. Cribbage: 

An Excellent version of this favorite card game. All cards are shown using PET’s excellent graphics. 

The PET plays a cool logical game difficult to beat even for the best players ........... cece cece eee ne eee e tenner e eee $ 7.95 
13. Game Package: 

Any SIMOf the aD OVes PrOG ANS corse. s.esraceca.sie-e-greisesmsndpaoassscuetioie avec eneidleis ai aia Wate anafa fetal CMetoi ans ets eRe Diers ate aierenee ass $34.95 


GUARANTEE: All programs are guaranteed to be free from errors and to load on any PET. Any defective tapes will be replaced free 
of charge. 


master charge 


THE INTERBANK.CARD 


Order From: CMS SOFTWARE, 5115 Menefee Drive, Dallas, TX 75277 
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added if another line could be combined with this 10 REM # RR Rk kkk Rk 
line. Therefore, if a line does not contain an IF.. a ae x COMPACTOR * 
THEN or mere aoa 3 EM * -=----------------_.- * 
THEN or GOTO statement, an ending quote is 40 REM * Bis, BOBRRE HARE i 
added. 50 REM * as 
When a colon is found within a BASIC line and 60 REM * BAKER ENTERPRISES is 
not within quotes, the next non-space character is 70 REM * 15 WINDSOR DR. = 

Te i st 8 a : 80 REM * ATCO, N.J. 68004 * 
checked before copying the colon. If a REMark follows OQ REM 4¥XHKKKKKERRARRRR KKK ERE RR 
the colon, the colon and the rest of the line is 108 : 
deleted. Otherwise, the colon is copied and processing 118 CLR : DIM TL(1668) 
: area ae HATTA 126 : 
continues as normal. 130. Gh MRA eee REE 
At the end of each BASIC line, a check is made 146 REM READY DISK FILES 
to see if the next line can be combined with this 150 REM FRAREEMA AAA REAR 
line. If there were no IF... THEN or GOTO 160 : 

ands. andthe ned le actareet li 176 PRINT"A"SPC(15) "cCCOMPACTORYY 

commands, and the next line is not a target line, 180 PRINT" ;INPUT? FILE IN rDRIVE #0¥ 
the lines are combined. When combining lines, the 199 PRINT"rLOUTPUT£ FILE IN rDRIVE #lv¥¥ 
line and line number are discarded, a colon is 260 INPUT"ZINPUT FILE NAMEf£";FLS$ 
written, and the next line is processed as part of 210 PRINT"ASCANNING FILE 

a i sik cael calc 220 PRINT" FOR TARGET LINES.....¥¥ 
Le PEeNIOUS IIS: 230 OPEN 15,8,15 : GOSUB 2376 
If the next line cannot be combined with the current 240 OPEN 5,8,5,"0:"+FLS+",P,R" 
line, the end of line flag is copied along with a 250 : 

1 y link and the next line number. A dummy OD Re Sean een nae 
ae cates moe : ’ d y 270 REM READ LOAD ADR, LINK & LINE# 
link is used to avoid excessive processing and working 280 REM FERRARA A RAK RA RRR KEKE 
buffers necessary with calculating program links. 290 : 
Besides, the links are automatically corrected by PET 390 GOSUB 2370 : GOSUB 2316 
BASIC with the RUN or CLR c ca. 7 1 Wars 318 GOSUB 2319 : IF V+V1=9 THEN 796 
2 WIth the: JIN OF ’ commands. sa 320 GOSUB 2318 : LN=V1+(256*V) 
standard operating procedure, the newly created pro- 330: 
gram outputted by COMPACTOR should be loaded SAG REM, AAREREEAESAAAAS SA RER NER ONE 
and re-linked, then re-saved onto disk. Th 358 REM SCAN BASIC LINES 
jiamndeciomentie eee Geen Seago? 360 REM FOR GOTO, GOSUB & THEN TOKENS 
program can be re-linked by issuing a CLR command 370 REM EKER RRRKAAAE AERA RR REA EER RRR 
after being loaded. 380: 
As mentioned previously, a BASIC program line 399 GOSUB 2339 
Te bee ane: 406 IF V=6 THEN 316 
cannot exceed 255 bytes in length. If it does, the 419 IF V=137 OR V=141 THEN 489 
program may not load from disk or it may be 420 IF V<>167 THEN 399 
totally unuseable. To protect against this, the ae aeii es ee ren 
COMPACTOR program stops combining lines if 450 REM GET TARGET LINE# 
more than 170 bytes have been written in a single 46G REM *keeKRKAR KARR RRR 
BASIC line. Since any normal line cannot exceed 470 : 
78 bytes in length, this should insure than no Ay: eaern iG) & xp WAO ne GSR 
program generated lines are longer than the 500 IF V<48 OR V>57 THEN 580 
maximum length. 519 LT=(10*LT) +VAL(C$) 
As an example of what this program will do, 528 GOSUB 2330 : GOTO 508 
I included a listing of a compacted version of the 539 : 

OMPACTOR program itself. Since this program Be RN ec er ace aera cee 
COMPACTOR progr — Spee 550 REM CHECK IF ALL READY FOUND 
has many REMarks, compacting saves over 3000 560 REM *kxRKARAKA RRR RRR RK Ke 
bytes for about a 50% saving in memory space. 576 : 

On most programs the’savings will be much smaller, 288 ae Ger Gnen ae 

depending on the programming style. A side benefit, 609 NEXT X 

however, is the increase in the operating speed of 610 TL(N)=LT : N=N+1 

compacted programs. I should warn, though, that the 620 PRINT LT, 

; acting process can be rather slow. Compacting 630 IF N<1600 THEN 716 

nis Cle ea ea, St a ma 649 PRINT"¥¥TOO MANY TARGET LINES! 
of the C MPAC program (a 6K program with 658 GOTO 2430 

all the REMarks) takes about 16 minutes. But all 660 : 

you have to do is start it off and then go get a 67D REM RX RRRRRKEKKEKKKEREERKERR EERE 
} ae F ee ' ' 
cup of coffee while the PEI docs the work! And eas aa GHP ER POR ONG 23GOTO//G05U5) 
you only have to run it once for any given 700 : 

program! 710 IF V=44 THEN 486 

iin ssa died onl xian si iw Kadina 729 IF V<>32 THEN 490 
For those too lazy to type in i, program, I'll be happy 739 GOSUB 2330 : GoTo 71a 
to provide copres on tape at $2 cach. 740 : 
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750 
760 
776 
786 
798 
808 
816 
820 
830 
840 
858 
860 
870 
880 
898 
966 
916 
920 
936 
940 
959 
969 
978 
986 
998 
1669 
1610 
1628 
1630 
1049 
1650 
1668 
16798 
1088 
1696 
1168 
1119 
1129 
11390 
1146 
11508 
1166 
1176 
1180 
11906 
1260 
1216 
1228 
1230 
1246 
12508 
1268 
1270 
1286 
1296 
1306 
1310 
1320 
13390 
1346 
1358 
1360 
1376 
1380 
1399 
1460 
1416 
1426 
1436 
1446 
1450 
1466 
1476 
1486 


REM *k eR RR RRR RRR EEK 
REM SORT TARGET LINES 
REM *#RRAKKKKK KARA KEK 


IF N<2 THEN 906 

FOR X=8 TO N-1 

FOR Y=@ TO N-2 

IF TL(Y) < TL(X) THEN 840 
V=TL(Y) : TL(Y)=TL(X) : TL(X)=V 
NEXT Y,X 


REM RRRKAKRR ARR R KARR RR KEK 


REM GET READY FOR COMPACT 
REM RRR RR 


PRINT "ACOMPACTING LINES....¥¥ 
CLOSE 5 

OPEN 5,8,5,"0:"+FL$+",P,R" 
GOSUB 2376 
FOS=LEFT$(FL$,14)+"/C" 
PRINT#15,"S1:"+FOS 

OPEN 6,8,6,"1:"+FOS+",P,W" 
GOSUB 2376 


REM *k RRR RK KARE 


REM COPY LOAD ADR 
REM ** RRR RAK RK 


GOSUB 2310 
PRINT#6,CHR$(V1); 
PRINT#6,CHRS(V);_: R=0 


REM FREER RRR RR RRR KERR EERE RE 

REM COPY LINK & LINE NUMBER 

REM #* ERK KKK ER KKERKER ERE ARE 
GOSUB 2310 : K1l=Vl : K2=V 

F=9 : IF V+V1=0 THEN 22398 

GOSUB 2319 : Ll=Vl : L2=V 
LN=L1+(256*L2) : PRINT LN, 

GOSUB 2336 

IF V=32 OR V=58 THEN 1159 

IF V=8 THEN 12698 

IF V<> 143 THEN 1246 

GOSUB 2330 : IF V>9 THEN 1198 
F=l1 : FOR X=8 TO N 

IF TL(X)<LN THEN NEXT X 

IF TL(X)=LN THEN 1249 

GOTO 11196 

PRINT#6 ,CHRS$(K1) ;CHRS$(K2) ; 
PRINT#6,CHRS$(L1) ;CHR$(L2); : R=4 
IF F THEN PRINT#6,":"; : R=5 

F=6 : GOTO 1368 

REM 
REM 
REM 
REM 


KR KK KEKE KER KKK RE KER ERR ERE 


*kk** SCAN BASIC LINE *** 


**** §& COMPACT PROGRAM *** 
FI I RRR KOR I 


PRINT#6,CS$; : 
GOSUB 23396 

IF V=137 THEN F=1 

IF V=139 OR V=167 THEN F=1 
IF V=6 THEN 1828 

IF V=32 THEN 1359 


R=Rt+1 


REM FARR RRR RRR RRR RRR ERK 


REM 'REM' TOKEN - 


REM DISCARD REST OF LINE 
REM ARR RRR RR KARR RRR RRR KE 


IF V<>143 THEN 1559 
GOSUB 2330 : IF V>S THEN 1479 
GOTO 1825 


1496 
1598 
1519 
1529 
1536 
1546 
1556 
1560 
1578 
1586 
1596 
1666 
1618 
1626 
1639 
1649 
1656 
1668 
1679 
1688 
1696 
1766 
1719 
1726 
17390 
1749 
1759 
1766 
1779 
1789 
1790 
1899 
1819 
1826 
1839 
1849 
18598 
1869 
1876 
1886 
1899 
1969 
1916 
1926 
1936 
1949 
1956 
1968 
1976 
1988 
1996 
2080 
2016 
2626 
2030 
2046 
2056 
2066 
2076 
2086 
2696 
2166 
21106 
21206 
2130 
2146 
2156 
2166 
2178 
2186 
2190 
2206 
2216 
2226 


REM *RRR RAR R RRR EKER KKK KR ER EEK 


REM QUOTE - 


REM COPY TILL NEXT OR LINE END 
REM #RRR RAR R RARER RAR RRR RRR R RR 


IF V<>34 THEN 1696 
PRINT#6,C$; : R=R+1 

GOSUB 2339 

IF V=34 THEN 1349 

IF V>® THEN 1566 

IF F THEN V=8 : GOTO 1659 
PRINT#6,CHR$(34); : R=R+1 
GOTO 1826 


KR KERR KEK KKK EERE KER ER ERE 


IF COLON - CHK NEXT CHAR 


ELSE COPY CHAR 
FOR RR RRR RK RR 


REM 
REM 
REM 
REM 
IF V<>58 THEN 1349 

GOSUB 2330 

IF V=32 OR V=58 THEN 1799 
IF V=143 THEN 1476 

IF V=9 THEN 1826 


PRINT#6,":"; : R=R+l 

GOTO 1360 

REM KKK KKK KEK KKK ERK RRR ERE EREKREEE 
REM END OF LINE - 

REM CAN WE COMPACT THESE LINES ? 
REM KKK KKK KKK KKK KEKE KKK KKK ERR RE 
IF F OR (R>170) THEN V=0:GOTO 1050 
GOSUB 2315 


IF V+V1=8 THEN 2239 
GOSUB 2318 : LN=V1+(256*V) 
Ll=vl L2=V PRINT LN, 


KKK KEK KEKE RRR ER ERR RRR EK 


CHK IF LINE# IS A TARGET 
KR KKK KKK KEE RRR ERK EKER E 


REM 
REM 
REM 
FOR X=6 TO N 

IF TL(X)<LN THEN NEXT X 
IF TL(X)=LN THEN 2119 
REM 
REM 
REM 
REM 


KR KEKE KKK KEK ERE KEKERE 


NOT USED — 


DISCARD LINK & LINE# 
RRR KERR RR RE RRR RRR 


GOSUB 2330 ; IF V=143 THEN 1470 
IF V=32 OR V=58 THEN 2019 
IF V=0 THEN 1830 


PRINT#6,":"; : R=R+l : GOTO 13606 


RR RK KK KR RRR KR ERR KR KK 


LINE# NEEDED — 


WRITE LINE END, LINK & LINE# 
KKK KR RRR ERK KR KK RRR RRR EEE 


REM 
REM 
REM 
REM 


PRINT#6 ,CHR$(@) ;CHR$(1) ;CHR$(1) ; 
PRINT#6,CHRS(L1);CHR$(L2); : R=4 
GOSUB 2339 

IF V=32 OR V=58 THEN 2139 

IF V=0 OR V=143 THEN PRINT#6,":"; 
F=6 : GOTO 1369 


KEKE KEKE KER KR RR KKK 


END OF COMPACT - 


WRITE END OF PROGRAM 
RRR RRR KKK KKK EEE K EKER 


REM 
REM 
REM 
REM 
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2230 PRINT#6,CHR$ (6) ;CHRS$ (9) ;CHRS$(®) ; 1200 F=1:FORX=OTON: IFTL(X) <LNTHENNEXTX 
2248 PRINT"ArDONEVY" 1229 IFTL(X)=LNTHEN1249 
2258 GOTO 2436 1238 GOTO1119 
2260 : 1249 PRINT#6,CHR$(K1) ;CHRS$(K2);:PRINT#6, 
2278 REM FRERRAKHKERERERER EER EERE ACHR$(L1) ;CHR$(L2) ; :R=4: IFFTHENPRINT# 
2286 REM ***** SUBROUTINES ***** 36, "2"72R=5 
2298 REM KRKKKKKKKKKEKEKEKKKKKEKKKEKKEK 1279 F=9:GOTO1369 
2300 : 1340 PRINT#6,C$;:R=R+1 
2318 GOSUB 2330 : Vl=V 1358 GOSUB2339 
2320: 1368 IFV=137THENF=1 
2330 GET#5,CS$ : GOSUB 2379 1378 IFV=1390RV=167THENF=1 
2346 IF C$="" THEN V=9 : RETURN 1380 IFV=08THEN1826 
2350 V=ASC(C$) : RETURN 1399 IFV=32THEN1359 
2360 : 1460 IFV<>143THEN1550 
2370 INPUT#15,EN,EM$,ET,ES 1478 GOSUB2330:IFV>STHEN1476 
2386 IF EN=8 THEN RETURN 14896 GOTO1826 
2390 : 1550 IFV<>34THEN1696 
2408 PRINT : PRINT"¥¥¥xDISK ERRORY 1569 PRINT#6,C$;:R=R+1:GOSUB2330:IFV=34THE 
2416 PRINT EN;EMS;ET;ES 3N1346 
2420: 1596 IFV>OTHEN1560 
2430 CLOSE 5 CLOSE 6 CLOSE 15 1600 IFFTHENV=9 :GOTO1059 

READY. 1619 PRINT#6,CHRS$(34) ;:R=R+1:GOTO1826 
1690 IFV<>58THEN1349 
1760 GOSUB233G: IFV=320RV=58THEN1769 
119 CLR:DIMTL(1006) :PRINT"A"SPC(15) "LCOMPA 1720 IFV=143THEN1479 
aCTORVY":PRINT" ,INPUTf FILE IN = 1730 IFV=O0THEN1820 
ALDRIVE #0y¥":PRINT"LOUTPUT? FILE IN 7 1749 PRINT#6,":";:R=R+1:GOTO1360 
arDRIVE #lyv¥":INPUT" 1829 IFFOR(R>179) THENV=9 :GOTO1959 
XINPUT FILE NAMEf";FLS:PRINT"ASCANNING 5 1839 GOSUB2319: IFV+V1=0THEN2239 
aFILE":PRINT" FOR TARGET LINES..... 1858 GOSUB2319:LN=V1+(256*V) :L1=V1:L2=V: 
ayy" 3aPRINTLN, : FORX=OTON: IFTL(X) <LNTHENNEX 
230 OPEN15,8,15:GOSUB2376:OPEN5,8,5,"0: aTX 
a"+FL$+",P,R":GOSUB2379 :GOSUB2319 1949 IFTL(X)=LNTHEN2119 
310 GOSUB2319:IFV+V1=8THEN790@ 2016 GOSUB233@:IFV=143THEN14796 
326 GOSUB2316:LN=V1+(256*V) 2620 IFV=320RV=58THEN2619 
398 GOSUB2338 2930 IFV=OTHEN1839 
460 IFV=OTHEN319 2040 PRINT#6,":";:R=R+1:GOTO1369 
416 IFV=1370RV=141THEN489 2110 PRINT#6,CHR$(@) ;CHRS(1) ;CHRS(1);: 
426 IFV<>167THEN39@ aPRINT#6,CHR$(L1) ;CHRS$(L2) ;:R=4 
480 LT=0 2138 GOSUB2336: IFV=320RV=58THEN2136 
498 GOSUB233G6:IFV=32THEN499 2158 IFV=OORV=143THENPRINT#6,":"; 
500 IFV<480RV>57THEN58O 2169 F=6:GOTO1360 
519 LT=(19*LT)+VAL (C$) :GOSUB2336 :GOTO508 2230 PRINT#6,CHRS$(@) ;CHR$(0) ;CHRS(O);: 
580 FORX=OTON: IFTL(X) =LTTHEN719 aPRINT"ALDONEVY":GOTO2436 
609 NEXTX:TL(N)=LT:N=N+1:PRINTLT,: 2318 GOSUB2339:V1=V 
3IFN<1000THEN719 2338 GET#5,C$:GOSUB2370: IFCS=""THENV=0: 
649 PRINT"¥V¥TOO MANY TARGET LINES!": RETURN 
3GOTO2436 2358 V=ASC(C$) :RETURN 
710 IFV=44THEN489 2370 INPUT#15,EN,EM$,ET, ES: IFEN=9THENRETUR 
720 IFV<>32THEN4OB aN 
730 GOSUB2336:GOTO719 2400 PRINT: PRINT"¥VVrDISK ERRORY": 
790 IFN<2THEN9OO aPRINTEN; EM$; ET; ES 
896 FORX=6TON-1:FORY=9TON-2:IFTL(Y)<TL(X)T 2438 CLOSE5:CLOSE6:CLOSE15 
HEN8 49 READY. (oO 
830 V=TL(Y) :TL(Y)=TL(X) :TL(X)=V 
848 NEXTY,X 
990 PRINT"ACOMPACTING LINES....¥¥":CLOSES: 
OPENS, 8,5,"0:"+FL$+",P,R":GOSUB2370: 
aFOS=LEFTS (FL$,14)+"/C":PRINT#15,"S1: 
3"+FO$:OPENG ,8 
16,"1:"+FOS+",P,W":GOSUB2376 :GOSUB2310: 
aPRINT#6 ,CHRS$ (V1); 
1650 PRINT#6,CHRS(V) ;:R=0 
1119 GOSUB2319:K1=V1:K2=V:F=0: IFV+V1=OTHEN 
12236 
1138 GOSUB2316:L1=V1:L2=V:LN=L1+(256*L2): 
aPRINTLN, 

1158 GOSUB233G: IFV=320RV=58THEN1156 

1176 IFV=0THEN1200 

1188 IFV<>143THEN1249 


1196 


GOSUB2339 : IFV>@THEN1190 
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BLACKJACK ANALYZER 
PUT PET TO WORK 


PLAYS 100,000 games in 24 minutes. 
Find the most advantageous method. 


User defines player method by simple keyboard entry including 
when to hit and double on soft and hard hands, split pairs and 
take insurance. Then run simulator and see resulting gain or 
loss in 24 minutes run time. 


Uses 4 Decks. Full casino rules. Countless permutations 
-OR- 

Switch to visual play and watch your system in real time 

8K. Specify old or new ROM. 6502 ML 


Cassette Tape $12.00 


COUNTING TUTOR 


Play Blackjack and win by keeping track of high and low cards 
Program displays count on request if you lose track. A real time 
simulator. 

8K. Specify old or new ROM. 6502 ML 

Cassette tape $6.00 


Malco 

54 Hesbeth Court 
Toronto, CANADA 
M4A 1M6 


Oops! Our address 
was misspelled in 
the last issue. If 
your letter was 
returned, please try 
again. 


tx BUSINESS 
vy TELECOMPUTING 


vx EXPERIMENTAL 
vx PERSONAL 


vr EDUCATIONAL 
wy RENTALS 


micro systems by 
rFeEeTrTreDpD 
hardware with a soft touch| 


SPECIALIZING IN 
Commodore Business Machines 


PRODUCTS BY 

CmC, NOVATION, TNW CORP., BIZCOMP, MICRO, CENTURY 
RESEARCH, TAB, POWR PROTECTR, systems, BASE 2, 
OSBORN, Eaton, SOURCE, MACTRONICS, MicroNet, Skyles, 
KILOBAUD, Dr. DALEY'S, INSTANT SOFTWARE, ASCRO, MICRO 
SOFTWARE SYSTEMS, COMPUTER FORUM, COMPETITATIVE 
SOFTWARE, HAYDEN, ATARI, NEECO, COMPUTE & COMPUTE II, 
DYSAN, CREATIVE COMPUTING, LIVERMORE RESEARCH, 
ROBOTICS AGE, SYBEX, KNIGHT ENTERPRISES. 

Another Last Minute News Note: Commodore has announced that 
the three for two educational offer is on again. 


Send For Our Free Catalog 
Mail Orders To: 
PETTED 
P. O. BOX 21851 
Milwaukee, Wisconsin 53221 


PETTED micro systems 
is located across from the SURFIN' TURF skate board park. 
Highway |-894 & Hwy 36 4265 W. Loomis Rd. 
Milwaukee, Wisconsin 
VOICE (414) 282-4181 we PBBS (414) 282-8118 


xx Vendors Display Your Products With Us. 


Care and Feeding of the Commodore PET 

Eight chapters exploring PET hardware. Includes repaw and yntertacing in 

formation Programming tricks and schematics 

Order Mo. 150 $11.00 

8K Microsoft BASIC Reference Manual 

Authoritative reference manual for the original Microsoft 4K and 8 BASIC 

developed for Altair and tater computers including PET. TRS 80. and OS! 

OSI owners please take note! 

Order Mo. 151 $9.95 

Expansion Handbook for 6502 and 6802 

(5.44 Card Manual) Describes all of the 4.5 1 6 9 44 pin S44 cards incl 

RAM. ROM. dig 1/0. MUX/A to D. EPROM Prog etc With schematics and 

funct desctiptions A must for every KIM. SYM and AIM owner 

Order Mo. 152 5.9.95 

Microcomputer Application Motes 

Reprint of Intels’ most mportant application notes. including 2708, 8085 

8255, 8251 chips. Very necessary for the hardware butt 

Order No, 153 $9.95 

Complex Sound Generation 

New. revised applications manual for the Texas Instruments SN 76477 

Complex Sound Generator Circuit board available ($8.95) 

Order Mo. 154 $6.95 

Small Business Programs 

Complete programs for the business user Mailing List, Inventory, Invorce 

Writing and much more Introduction into Business Applications Many 

stings 

Order Mo. 156 $14.90 

The First Book of Ohio Scientific, Vol. 1 

Contains an introduction to personal computers and describes the Ohio 

Scientihc Line Contains explanatory diagrams block, hook up. expan 

sion, tricks, hints and many interesting listings Hardware and software in 

formation not previously available in one compact source 192 pages 

Order Mo. 157 $7.95 

The First Book of Ohio Scientific, Vol. It 

Vol Il contains very valuable information about Ohvo Sc microcom 

puter systems Introduction to OS.6S0 and 0555 U, networking and dis 

buted processing. systems specifications. business applications, hard 

and software hints and tips 

Order No. 158 $7.95 

Mailing List Program for Challenger C1/C2 8K 

Order Mo. 2004 - Personal Version 59.95 

Order No. 2005 - Business Version $9.95 

Ohio Scientific Expansion Information 

Conversion of CIP (Cassette) to $2126 display Detailed step by step in 

structions tor doubling the CIP speed and display size 

Order Mo, 1105 $12.00 

Important Sottware tor CBM 16K/32K 

Most powerful Editar/Assembler tor Commodore CBM 16/32 on cassette 
fast— Editor diides screen into 3 parts Scrolling text window. 24 

direct commands. 19 serial commands. status and error messages As 

sembler can be started directly from the editor at from the TIM monitor 

Translates im three passes I! an error as encountered. automatic return to 

the editor Cassette with DEMO 

Order No. 3276 

ATTENTION APPLE USERS 

Same as above for Apple tl or Apple Il plu 

Order Mo. 3500 


MONJANA’1 makes Machine Language Programming easy! 


offers more user guidance and debugging aids than any other monitor 

available today It vs indispensable for anyone intending to take full ad 

vantage o! the computer Trace link. disassemble. dump. rel 
n more Every command function has de 

mand printout option Price includes extensive manual 

Order Mo. 2001 $98.00 

JAMA Monitor on cassette for the PET 

Similar to MONIANA'L very power 

Order Mo. 2002 


ELCOMP PUBLISHING Inc. 
3873-L Schaefer Ave. Chino CA 91710 (714) 591.3130 


Please send me the books software indicated below 
enclose $ 
OD ($5 extra) 


Mastercharge 


Software Ni 


Adare 
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A few entry ie 
points, original/ = ** 


upgrade / ‘ 
4.0 ROM aa 


FOBA 
. 7 F12C 
Jim Butterfield E7DE 
F167 
FI7A 
FI7E 
F187 
F2C8 
F2CD 
Entry points seen in various programmer’s machine F32A 
language programs. The user is cautioned to check out F33F 
the various routines carefully for proper setup before 
calling, registers used, etc. Toe 
F3E5 
ORIG UPGR 4.0 DESCRIPTION 
C357 C355 B3CD ?OUT OF MEMORY F3FF 
C359 C357 B3CF Send Basic error message F411 
C38B C389 B3FF Warm start, Basic F43F 
C3AC C3AB B41F Crunch & insert line 
C430 C439 B4AD Fix chaining & READY. F462 
C433 C442 B4B6 Fix chaining 
C48D C495 B4fB Crunch tokens F495 
C522 C52C B5A3 Find line in Basic 
C553 C55D B5D4 Do NEW F504 
C567 C572 B5E9 Reset Basic and do CLR F52A 
C56A C575 B5EC Do CLR 
C59A C5A7 B622 Reset Basic to start F52D 
C6B5 C6C4 B74A Continue Basic execution F579 
C863 C873° B8F6 Get fixed-point number 
from Basic. F57B 
C9CE C9DE BADB Send Return, LF if in F5AE 
screen mode F64D 
c9D2 C9E2 BADF Send Return, Linefeed 
CA27 CA1C BB1D Print string F667 
CA2D CA22 BB23 Print precomputed string F67D 
CA47 CA43 BB44 Print ‘'?”’ F6E6 
CA49 CA45 BB46 Print character F78B 
CE11 CDF8 BEF5 Check for comma 
CE13 CDFA BEF7 Check for specific character F7DC 
CE1C CE03 BFOO ‘SYNTAX ERROR’ 
CFD7 CFC9 C187 Find fl-pt variable, given F83B 
name F85E 
D079 D069 C2B9 Bump Variable Address F87F 
by 2 F88A 
DOA7 DO9A C2EA Float to Fixed conversion F8B9 
D278 D26D C4BC Fixed to Float conversion F8C1 
D679 D67B C8D7 Get byte to X reg 
D68D D68F C8EB Evaluate String F913 
D6C4 D6C6 C921 Get two parameters 
D73C D773 c99D Add (from memory) FBDC 
D8FD D934 CB5E Multiply by memory FD1B 
location FFC6 
D9B4 D9EE cci8s Multiply by ten FFC9 
DA74 DAAE CCD8 Unpack memory variable FFCC 
to Accum #1 FFCF 
DAA9 DAE3 cbDOD Copy Acc #1 to (X,Y) FFD2 
location FFE4 


DB55 


DCD9 
DCE3 
DCE9 


E3D8 
E775 
E7A7 
E7B6 
F156 
FOB6 
FOBA 
F128 
F156 
F16F 
F17F 
F183 
F18C 
F2A9 
F2AE 
F301 
F315 


F322 
F3E6 
F3EF 


F40A 
F41D 
F447 


F466 
F494 


F4FD 
F521 


F524 
F56E 


F570 
F5A6 
F63C 


F656 
F66C 
F6FO 
F770 


F7BC 


F812 
F835 
F855 
F85E 
F886 
F88E 


F8E6 


FB76 

FC9B 
FFC6 
FFC9 
FFCC 
FFCF 
FFD2 
FFE4 


CD7F 


CF83 
CF8D 
CF93 


E202 
D722 
D754 
D763 
F185 
FOD2 
FOD5 
F143 
F185 
F19E 
F1B6 
FIB9 
F1CO 
F2DD 
F2E2 
F335 
F349 


F356 
F425 
F42E 


F449 
F45C 
F486 


F4A5 


F4D3 


F53C 
F560 


F563 
F5AD 


F5AF 
F5E5 
F67B 


F695 

F6AB 
F72F 
F7AF 


F7DF 


F857 

F87A 
F89A 
F8A3 
F8CB 
F8D3 


F92B 


FBBB 
FCEO 
FFC6 
FFC9 
FFCC 
FFCF 
FFD2 
FFE4 


Completion of Fixed to 
Float conversion 

Print fixed-point value 
Print floating-point value 
Convert number to ASCII 
string 

Print a character 

Output byte hex digits 
Input 2 hex digits to A 
Input 1 hex digit to A 
Print system message 

Send ‘talk’ to IE 
Send ‘listen’ to I 
Send Secondary 


Send canned message 
Send character to IEEE 
Send ‘untalk’ 

Send ‘unlisten’ 

Inpute from 
Close logical file 

Close logical file in A 
Check for Stop key 

Send message if Direct 
mode 

LOAD subroutine 

?LOAD ERROR 

Print READY & reset Basic 
to start 

Print SEARCHING. . . 
Print file name 

Get LOAD/SAVE type 
parameters 

Open IEEE channel for 
output. 

Find specific tape header 
block 

Get string 

Open logical file from input 
parameters 

Open logical file 

?FILE NOT FOUND, 
clear I/O 

Send error message 

Find any tape header block 
Get pointers for tape 
LOAD 


Set tape buffer start address 


E 


Set input device from 
logical file number 

Set output device 

from LFN. 

PRESS PLAY..; wait 
Sense tape switch 

Read tape to buffer 
Read tape 

Write tape from buffer 
Write tape, leader length 
in A 

Wait for I/O complete 
or Stop key 

Reset tape I/O pointer 
Set interrupt vector 

Set input device 

Set output device 
Restore default 1/O devices 
Input character 

Output character 

Get character © 
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- ECXCo.. 


Specializing in 
peripherals and software 
for the PET 


We offer the following 
new products 


*Full IEEE-488 Bus Acoustic MODEM ...$395.00 
*Full IEEE-488 Bus to Centronics or NEC Spin- 
writer Interface COM-PLICATIONS Model C101 


PET’ MACHINE LANGUAGE GUIDE 


PET 
MACHINE 
LANGUAGE 
Contents include sections on: 
GUIDE ® input and output routines. 
® Fixed point, floating point, 
and Ascii number conversion. 
© Clocks and timers. 
@ Built-in arithmetic functions. 
® Programming hints and sugges- 
tions. 
® Many sample programs. 


While supply lasts: 
Guides for Old ROMS 
only $5.00 inc. postage 
New ROMS order below 


If you are interested in or are already into machine language 
programming on the PET, then this invaluable guide is for 
you. More than 30 of the PET’s built-in routines are fully 
detailed so that the reader can immediately put them to good 


Interface COM-PLICATIONS Model C102 $295.00 
“Watanabe MIPLOT Intelligent Graphics Plotter 
Watanabe Model WX4671 . .$1200.00 
*VIEW-PLOT I Graphics Software packages: Runs 
on the PET connected to the Watanabe MIPLOT 
Plotter via the IEEE-488 Bus Interface Adaptor. 
C102 Graphics Package (No computer skills 
needed to use) 
Subroutines Package (16 Subroutines) . $95.00 
Combination of Both Packages .....$145.00 
*PET Computer Desk, designed for PET computer, 
r-— disk and printer 


pet/cam UNCRASHER™ 


WHAT IS IT? — UNCRASHER"™ is a two button device that 


allows PET/CBM users to regain control of a cursor that’s PERIPHERALS AND SOFTWARE 


been lost due to programming errors. BASIC programs = 


use. 

Available for $6.95 + .75 postage. Michigan residents please 
include 4% state sales tax. VISA and Mastercharge cards 
accepted - give card number and expiration date. Quantity 
discounts are available. 


titi] ABACUS SOFTWARE 


iggeei3 2882. P.O. Box 7211 
Hill Grand Rapids, Michigan 49510 


may be recovered. Machine language programs in the We will shortly announce the 
second cassette buffer are not disturbed either . 
following new products: 
WHICH PETs/CBMs? — UNCRASHER™ 1s for all PET/CBM 
oe *C301 PET to DIABLO Printer Interface 
model PETs should u 4 ; 
DBESGE GHG Wau ieatlll Seetthardetniieed F *C302 PET to QUME Printer Interface 
? — You bet ee the detailed review o . oF * . . 
the types of crashes and the concept of recovery in the C231 Full IEEE-488 Bus to RS232C Uni-directional 
first issue of Compute Interface 
INSTALLATION — Simple. completely illustrated instruc- C232 Full IEEE-488 Bus to RS232C Bi-directional 
tions using only a Phillips screwdriver ensure installation Interface 
in minutes. No soldering or modificaitons to the computer. ECX Co. offers technical support and fast in-house maintenance and service 
OPERATION — Just follow the simple steps—push the for all the products we sell. We know how to repair Commodore equipment! 
buttons and reset the stack pointer—and PRESTO EXC Co. is owned and operated by COM-PLICATIONS, INC.. a design and 
recovery! development corporation. Call us; we talk technical! ALL COM-PLICA 
: TIONS INC. products are manufactured to industrial quality standards. If you 
Hl this hi 
Pind all As arp ens We np Us Bawa ng iielP RT/CEMICoWnIane He) need to know more about the IEEE-488 Bus read our just-published 
WHY UNCRASHER™? — No first class computer such as Osborne /McGraw Hill new book, “The PET and The IEEE-488 (GPIB) 
the PET/CBM should be without this capability. Whether Bus”, authored by the president of COM-PLICATIONS, INC. available from 
your fancy be programming, business, education, or hobby, ECX Co. for $18.00 (includes tax and shipping) 


hobby, UNCRASHER™ saves you time by uncrashing your P.S. All of our IEEE-488 Bus interfaces meet ALL of the IEEE-488 Bus perfor 


slip-ups. mance requirements! 
ECX Co. 


AVAILABILITY — Now in better computer stores, or order 
direct from ITS, made by the people who brought you 


NEW-CURSOR™. 1372 N. Main Street #6 
INTERNATIONAL TECHNICAL SYSTEMS INC. Walnut Creek, CA 94596 
P.O. BOX 264 ede RO ee MIRGINID: ancl (415) 944-9277 
GENE RICHMOND, VIRGINIA (804) 262-9709 eS . aul 2 
me $14.95 Northern California’s Fastest-Growing 


Exclusive Commodore Computer Dealer 
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Feed Your PET 


G. A Campbell 


Some 36 Doubletree Road 
Willowdale, Ontario M2) 324 


APPLESOFT 


We all know that there is no such thing as compatibility 
in the world of personal computers. For example, the 
APPLE and the PET store programs on tape quite 
differently. However, by using the program in Listing 
1, you can load programs from an APPLE directly 
into a PET. To be more specific, you can load 
APPLESOFT programs (cassette or ROM versions) 
into an upgrade-ROM PET. Conversion to original- 
ROM PET’s is trivial. 

Structure of an APPLESOFT tape 

One of the things which make the process fairly easy is 
the simple way APPLE’s save programs. A bit is 
stored as one full cycle on tape. A short cycle is a zero- 
bit, one about twice as long is a one-bit, and leader is 
slightly longer again. A byte is simply made up of 
eight bits, unlike the PET, which has a start-bit and 
a parity-bit. The high-order bit comes first. 

A program is stored as two blocks. The first is a 
length block. It contains four bytes: 

low-order half of program length 

high-order half of program length 

fixed hexadecimal ‘55’ 

checksum of the above. 

The checksum is formed by beginning with hexa- 
decimal ‘FF’, then doing an exclusive-or on each 
byte of the block. 

The second block contains the exact image of the 
program as it resides in memory. It is suffixed by two 
bytes, the second of which is a checksum formed the 
same way as for the length block. These two bytes are 
not counted in the program length. 

Each block is preceded on tape by about ten 
seconds of leader (long bits) and one zero-bit, and 
followed by some tape which is effectively blank. 

The other thing which makes the task easy is that 
both APPLESOFT and PET BASIC were written by 
Microsoft, and thus programs have exactly the same 
format in memory. 

The APPLESOFT Loader 

The program in listing 1 has many comments to 
point out the subtleties of how it operates. The major 
functions are: 

Initialize everything upon entry so the program 

can be rerun if there is an error. 

Time the cycles passing the head on the cassette. 

Throw away the first ‘bit’. 

Wait for the ‘start-bit’. 


Make bytes out of the following bits. 
Do the checksum on the length block, and set up 
to read the actual program. 
Convert the statement pointers if the program 
was cassette APPLESOFT. 
Translate the BASIC tokens. 
Convert the statement pointers from beginning at 
hexadecimal 0801 to hexadecimal 0501. 
Move the program down from 0801 to 0501. 
(The code to do this is at the start of the program, 
since part of the loader is overlaid.) 
Memory Requirements 
The loader reads programs into the same location as 
ROM-based APPLESOFT. This is hexadecimal 0801, 
which is just above the screen on an APPLE. However, 
by the time the process is completed, the program has 
shuffled down to 0401. Thus, on an 8K PET you 
can load 6K of program text. Ignoring memory 
differences due to conversion, you have an additional 
1K available for variables. APPLESOFT is also 
available as a loadable program (as opposed to ROM), 
in which case the APPLE requires 11K more than the 
PET to hold the same program. 
Program Operation 
The steps to load an APPLESOFT program are: 
From BASIC, load the ‘APPLESOFT LOADER’. 
Type RUN, but don’t press RETURN. 
Position the APPLE tape at the beginning of the 
tone for the program you want. For the first 
program on a tape, just do a rewind. Otherwise, 
you will need an audio cassette-player. The 
person who provided the APPLE tape should be 
able to show you how to position a tape, since 
they do it all the time. 
Press PLAY and wait 3 to 9 seconds. 
Press RETURN. 
There are several possible results. The good one is 
that the PET displays ‘OK’ and ‘READY.’. Stop 
the tape and type 0 (zero) and RETURN. This 
deletes line zero, which is the last remnants of the 
loader. this is safe even if the APPLE program has a 
line zero, since only the first one is deleted. The 
APPLE program is now available for any required 
conversion. (See below) 
About half the time, a question-mark will print. 
This is followed by a ‘BRK’, which puts you in 
the machine-language monitor on the upgrade-ROM 
PET. Type ‘X’ to return to BASIC and try again. 
There was a checksum error on the length block. 
The error was possibly caused by the tape being 
positioned incorrectly. If you obtain the question- 
mark a couple of times, try changing the ‘3E’ 
(decimal 62) which is stored at hexadecimal E811 
by the routine named ‘INIT’ to ‘3C’ (decimal 60). 
The APPLE is not consistent on whether a cycle 
is ‘low-high’ or ‘high-low’. Since the loader only 
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Text Editor 


To help you write your program, MacroTeA includes a 


Skyles Electric Works 


Presenting the Skyles MacroTeA 


to user's needs; “Do-it-yourself” command 


Fast...Fast Assembler 


Briefly, the pseudo-ops are 


Commands the assembler to begin placing assembled 
code where indicated 


Commands the 
certain serious 


ssembler to continue assembly unless 


rors occur, All errors are printed out 


Commands the assembler to start listing sour 
file) from this point on 


Commands the assembler to stop list source (text file) 
from this point in the program. 

Commands the assembler to continue that source 
program (text file) on tape 

Commands the assembler to store the object code in 
memory 

Commands the assembler to not store object code in 
memory 

Commands the assembler to store abject code at loca: 


tion different from the location in which it 1s assembling 
object code, 


Commands the assembler to store an external address 
Commands the assembler to set aside a block of storage 
Commands the assembler to store data 

Commands the assembler to store an internal address 


Commands the assembler to calculate an external label 
expression 


Commands the assembler to calculate an internal label 
expression 


Informs the assembler that this is the end of the 
program. 


Commands the assembler to eject to top of page on 
printer copy. 

A directive not a pseudo-op, directs the assemblers to 
redefine the value of a label. 


Macro Assembler 


The macro pseudo-ops include 


This 1s a macro beginning instruction definition. 
This is end of a macro instruction definition 
Do not output macro-generated code in source 
listing 

Do output macro-generated code in source 
listing 


Conditional Assembler 


If the label expression is equal to zero, 
assemble this block of source code (text file) 
If the label expression is not equal to zero, 
assemble this block of source code (text file) 
If the label expression is positive, assemble this 
block of source code 

If the label expression is negative, assemble 
this block of source code. 


powerful text editor with 34 command functions oes 
AUTO = Numbers lines automatically © cE 
NUMBER — Automatically renumbers lines 
FORMAT = Outputs text file easy-to-read columns e.s 
COPY Copies a tine oF group of lines to.a new 
location etc 
MOVE = Moves a line or group of lines to a new 
location ect 
DELETE Deletes a line or group of lines 
CLEAR Clears the text # © 0s 
PRINT Prints a hne or group of lines to 
the PET screen © oc 
PUT Saves a or group of lines of text on 
the tape (or disc) ene) 
GET Loads a previously saved line or group of lines 
f text from the tape (or disc) 
of text fro} pe (or di Jue 
DUPLICATE Copies text fle modules from one tape. 
recorder to the other. Stops on specitic © os 
modules to allow changes before it 1s duph eau 
cated. This command makes an unlimited 
length program (text file) practical est 
HARD Prints out text file on printer © DE 
ASSEMBLE — Assembles text file with or without a listing 
Assembly may be specified for the abject cod? @ DI 
(program) to be recorded or placed in RAM 
memory 
@ EN 
PASS Does second pass of assembly, Another 
command that makes unlimited length text 
files (source code) practical ee 
RUN Runs (executes) a previously assembled 
program. © SET 
SYMBOLS Prints out the symbol! table (label file) 
SET Gives complete control of the size and location 
of the text file (source file), label file (symbol 
table) and relocatable buffer 
DISK — Gives complete access to the eleven DOS mo 
commands, 
PUT GET NEW INITIALIZE ME 
DIRECTORY COPY DUPLICATE EC 
SCRATCH VALIDATE RENAME 
ERROR REPORT 
es 
EDIT Offers unbelievably powerful search and replace 
capability, Many large computer assemblers 
lack this sophistication 
FIND — Searches text file for defined strings. Optionally 
prints them and counts them; ie., this command The conditional assembly pseudo-ops are 
counts number of characters in text file 
MANUSCRIPT Eliminates line numbers on PRINT and HARD IES 
command. Makes MacroTea a true and power 
ful Text Editor INE 
BREAK Breaks to the Monitor portion of MacroTea ‘at 
A return to Text Editor without loss of text 
is possible 
IMI 
USER = Improves or tailors MacroTea’s Text Editor 


This is the end of a block of source code. 


Enhanced Monitor 


OamNDd 


G 


x 
1 


. By having 16 powerful commands: 


Automatic MacroTeA cold start from Monitor. 
Automatic MacroTeA warm start from Monitor. 
Loads from tape object code program 

Saves to tape object code between locations 
specitied. 

Disassembles object code back to source listing 
Displays in memory object code starting at selected 
location. The normal PET screen edit may be used 
to change the object code. 

Displays in register. Contents may be changed using 
PET screen edit capabilities 

Hunts memory for a particular group of object 
codes 

Allows you to walk through the program one step 
ata time 

Breakpoint to occur after specified number of 
passes past specified address 

Start on specified address. Quit if STOP key or 
breakpoint occurs. 


Transfers a program or part of a program from one 
memory area to another 

Gol! Runs machine language program starting at 
selected location 

Exits back to BASIC. 

Display memory and decoded ASCII characters. 
Pack (fill) memory with specified byte 


What are the other 
unique features of the 
MacroTeA? 


...a completely solid state firmware system ...all in ROM and RAM. No 


Labels up to 10 characters in length 


50 different symbols to choose from for each character 


10'* different labels possible 


Create executable object code in memory or 
store on tape 


Text editor may be used for composing letters, 
manuscripts, etc. 


Text may be loaded and stored from tape or disc 
Powerful two-cassette duplicator function 
String search capability 

Macros may be nested 32 deep 

25 Assembler psuedo-ops 

5 Conditional assembler psuedo-ops 

40 Error codes to pinpoint problems 

16 Error codes related to Macros 

Warm:start button 


Enhanced monitor with 16 commands 


tapes to load. The system is available from the time you turn on your PET to 


the time you shut it off. 


15 chips on asingle high quality printed circuit board; interfaces with PET’s 


parallel address and data bus or with Skyles Memory Adapter. 


comprehensive 170 page 


this price. 


manual is included 


$395.00 * 


Truly, there is simply no other system of this magnitude at anywhere near 


A 


“California residents: please add 6% or 6.5% sales tax as required 


VISA, MASTERCHARGE ORDERS CALL (800) 538-3083 (except California residents) 
CALIFORNIA ORDERS PLEASE CALL (408) 257-9140 


Skyles Electric Works 


231 E South Whisman Road 
Mountain View, CA 94041 
(415) 965-1735 
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notices one transition per cycle, catching the wrong 
one gives it half of that bit, and half of this bit. 
Garble is the result. Fortunately, the program block 
always seems to be consistent with the length block. 
The time spent establishing which way to go is 
slight, since the length block ends about 11 seconds 
in to the tape. 

You may get the message ‘TOO BIG’ immediate- 
ly after reading the length block, which means the 
program won’t fit into available memory. 


The worst result is that the PET displays ‘BAD’. 
This means that there was a checksum error on the 
program block. It is necessary to reload the loader, 
and perhaps to reset the PET. I didn’t see this 
result until I had succeeded in loading about 30 
APPLE programs. The APPLE tends to like tapes 
which are a little ‘quieter’ than PET tapes, so you 
might try getting a louder copy of the program. 

Now the Fun Begins 

Unfortunately, cassette tape format is not the only 
difference between the PET and the APPLE. After 
deleting line 0, you have a program loaded. You can 
list it, change it, or save it. But will it run? The 
answer is maybe. It can happen. But some programs 
will be hopeless. The APPLE has a vefy fancy graphics 
system, and APPLESOFT supports it. All the graphics 
commands are translated into CMD (which the 
APPLE doesn’t have). If there are any of these in the 
program you just loaded, you may have big trouble. 
Perhaps the person who gave you the APPLE tape can 
help you convert it, but it may not be worth the 
effort. 

There are several other BASIC commands on the 
APPLE which are not available on the PET. The 
loader translates most of these into VERIFY, which 
is not supported by the APPLE. There are a few 
APPLE commands which are very easy to convert to 
the PET. The loader does ‘phony’ translations on 
these. And finally, there are commands which trans- 
late exactly, but do not give the same result. The 
worst part of trying to correct these differences is 
that a line of BASIC can be 239 characters long on 
the APPLE, versus 80 on the PET. The longer lines 
will run just fine, but can not easily be changed 
using the PET screen editor. Thus you have to split 
this type of line into multiple lines. 

The whole process will be greatly helped if you 
have an extended BASIC which includes the 
commands FIND and RENUMBER. This allows you 
to FIND commands which could cause problems, and 
split program lines without concern about smearing 
existing lines. 

Space does not permit a complete tutorial on 
converting APPLESOFT programs. However, ignor- 
ing graphics, here are some suggestions: 

Commands with no PET equivalent 
DEL - To delete program lines; unlikely to be im- 
bedded in a program, since it also stops execution. 


TRACE 

NOTRACE - Usage obvious. Not needed in a working 
program. 

POP - Cancel a GOSUB. This is an atrocious 
technique. 

HIMEM - Set top of memory. Could be replaced 
with POKE’s but is unlikely to be in a pure BASIC 
program which doesn’t use graphics. 

LOMEM - Set bottom of memory. Within a program 
it will probably cause the program to fail (even on 
the APPLE). 

ONERR 

RESUME - Replace with programmed editing. 
SPEED = - Sets display rate. Replace with delay 
loops in key locations if necessary. 

& - Does a jump toa machine-language routine 
which the user must establish. Not part of normal 
BASIC programs. 

NORMAL 

FLASH 

INVERSE - Adjusts the video mode for subsequent 
PRINT statements. The equivalent to INVERSE is 
specified within the text on the PET. 

Commands with phony translation 

TEXT/CONT - TEXT sets the ‘text window’ to 

be the whole screen. CONT has no function within a 
program, so it is substituted. A program with multiple 
TEXT statements probably changes the size of the 
‘text window’ with POKE statements in order to 
print headings once, and then change what appears 
under them with PRINT statements. 

HTAB/NEW - NEW has no function within a pro- 
gram except to make it commit suicide. HTAB 

is like TAB, but does not appear in a PRINT 
statement. HTABn can be directly converted to 
PRINTTAB(n-1); although it can very often be moved 
into an adjacent PRINT statement. 

HOME/OPEN - OPEN is not supported by APPLE- 
SOFT. HOME clears the ‘text window’, so it can 
usually be replaced with PRINT‘‘clr’’. 
VTAB/CLOSE - CLOSE is not supported by APPLE- 
SOFT. VTABn positions the cursor on line ‘n’. Pro- 
grams which use VTAB usually have lots of them, 

so at the start of the program define a string, for 
example DN$, containing a ‘HOME’ character 
followed by 24 ‘DOWN’s. Then replace VTABn 
with PRINT LEFT§$(DN$,n); 

STORE/SAVE 

RECALL/LOAD - It is assumed that you won’t be 
converting programs with LOAD or SAVE in them. 
STORE and RECALL are used to dump matrices 
out to tape and read them back. Convert by putting 
in the appropriate OPEN, PRINT#, CLOSE or 
OPEN, INPUT#, CLOSE loops. 

Commands which may give different results 
PR#/PRINT# - Used to do I-O to devices other 
than the screen and keyboard. Definitely not equiva- 
lent. 
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CALL/SYS - Used to invoke a machine-language 
program. Almost certainly will require change. Note 
that CALL, WAIT, PEEK, and POKE on the 
APPLE may specify negative numbers. The address 
used will be 65536 minus the amount specified. 
This convention is a carryover from integer-BASIC, 
and has no equivalent on the PET. The most popular 
CALL’s on the APPLE are: 

-936 - clear the text window. Replace by printing a 
screen-clear. 

-958 - clear the text window from the current print 
position. More difficult to replace. 

-868 - clear from the current print position to the 
end of the line. 


WAIT - Wait for an external event. Will require 
rework, since it references an actual memory location. 
POKE - Sets a specific memory location to a particu- 
lar value. Usually will require substantial rework. 
PEEK - Returns the value stored in a specific memory 
location. Will also require rework. 

USR - Another way to invoke a machine-language 
routine. 

RND - On the APPLE, RND(0) repeates the pre- 
vious RND, unlike the PET, where it generates 

a truly random number. 

GET - On the APPLE, this waits for a key to be 
pressed. On the PET, a null string is returned if no 
key has been pressed. To convert, make sure it is on 
a line by itself, and add a test like this: nnnn GET 
A$: IF A$ = ‘°’ THEN nnnn 

In the APPLE program there may be a PEEK at loca- 
tion -16384 to see if a key is being pressed which 
can be combined with the GET. 

= - (Horrors. If you can’t trust ‘ =’, what can 

you trust!) If the result of a comparison is used as a 
number, it will give a different result. For example, 
N =A = B sets N to a value depending on 
whether A equals B. On the APPLE, an equal con- 
dition gives a value of 1, on the PET, equal gives 
“1. 

ASC - Usually ASC of a letter is 64 greater on the 
APPLE than on the PET. 

LIST - Terminates program execution on the PET, 
but not on the APPLE. 

INPUT - APPLESOFT allows INPUT of a null 
string. You may encounter programs which invite 
you to ‘PRESS RETURN TO CONTINUE’. On 
the PET, of course, you will obtain the ‘READY.’ 
prompt and you are out of the program. Change the 
prompt to ‘PRESS A KEY TO CONTINUP’, and 
replace the INPUT with a GET. 

- INPUT generates a question-mark prompt on the 
PET but not on the APPLE. 

BELL - On the APPLE, you can make the speaker 
beep by printing a control-G. No character appears 
on the screen. On the PET it prints as a reverse-G. 
TAB - Use one position less on the PET. 


PRINT - There are a number of detail differences. 
For example, tab-fields (invoked with commas) are 
10 characters wide on the PET versus a sequence 
of 16,16,8,16,16,8. . . on the APPLE. A number 
is preceded by a space and followed by a skip on 
the PET, but not on the APPLE. 

The Bottom Line 


Does it work? It sure does! As long as you avoid 
graphics, you can have a program up and running 
in short order. I was able to load one Adventure- 
style game and have it completely running in less 
than half an hour. It sure beat keying in 16K of 
program text. 

Many thanks must go to Keith Falkner of 
Toronto, who provided the description of what 
an APPLE tape looks like, many tapes to test with, 
and access to the manuals describing APPLESOFT. 
Program Availability 
If you wish to obtain the program on tape, please 
write me. Enclose $10, and I will send you the 
loader in Upgrade-ROM and Original-ROM ver- 
sions, as well as the source in a format suitable 
for Carl Moser’s ASSM/TED. For 32K PETS, this 
will be the whole program, for 16K there is no 
room for comments. 


6005 -LS 

9010 ; 

0620 ; APPLESOFT LOADER 

0030 ; 

6046 ; FOR USE ON THE COMMODORE PET/CBM 
0050 ; 

G060 ; COPYRIGHT (C) 1986 

0070 ; GORD CAMPBELL 

9680 ; 36 DOUBLETREE ROAD 

9090 ; WILLOWDALE, ONTARIO 

0166 ; M2J 324 

G119 ; 

0120 ; TO ASSEMBLE USING CARL MOSER'S 
9130 ; ASSM/TED, REQUIRES 'SET' COMMAND 
0140 ; AND A 32K MACHINE, SINCE THE SOURCE 
6150 ; (INCLUDING COMMENTS) IS TOO LARGE 


TO FIT 
6166 ; INTO DEFAULT AREA, AND OBJECT 
6176 ; GOES INTO THE DEFAULT TEXT AREA. 
6180 ; 
9190 WHERE -DE 1 
8200 ; USED FOR STORE INDIRECT 
6210 ; THE ONLY PART OF PAGE ZERO 
6220 ; WHICH IS SMEARED. IT DOESN'T 
6230 ; MATTER, BECAUSE THE 'USR' 
6240 ; VECTOR SHOULD BE SET UP BY 
6250 ; ANY PROGRAM WHICH USES IT. 
6260 PGMEN «DE $2A 
6270 ; BASIC 'END OF PROGRAM' 
6286 ; 
9296 
0300 
6310 ; 
9320 PRINT -DE $FFD2 
0330 ; PRINT ROUTINE 
6340 -BA $0460 
6350 -OS 
0360 ; HERE IS A BASIC PROGRAM. 
0400- 69 OD 64 6370 -BY 8 SOD 4 OB S9E 
9403- 69 06 9E 
6406- 31 30 35 6380 ~BY '1056:' $80 
G469- 36 3A 86 


CHANGE THIS TO $7C AND YOU 
ARE CONVERTED TO ORIGINAL ROM. 


G46C- 66 86 GG 9398 -BYGO6690 
B40F- 08 
8400 ; 
0410 ; IT READS '6 SYS1056:END' 
0420 ; 
6430 ; 
0440 ; -- VARIABLES -- 
9456 ; 
0410- 60 060 66 9466 LENGTH -BY 68 06 69 5B 


0413- 60 
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0470 ; APPLESOFT 'LENGTH' BLOCK 0471- AD 16 04 1370 LDA STLOC 
0486 ; IS STORED HERE 6474- 85 O1 1386 STA *WHERE 
0414- 96 0G 0490 STLEN -SI 6 6476- AD 17 64 1390 LDA STLOC+1 
0506 ; LENGTH OF CURRENT BLOCK @479- 85 62 1466 STA *WHERE+1] 
0416- 08 60 8519 STLOC -SI 0 1410 ; 
0520 ; WHERE IT GOES 1420 ; END OF INITIALIZATION 
0418- 60 0530 CHAR ~BY 0 1430 ; 
9540 ; CURRENT CHARACTER 047B- AO 08 1440 INITY LDY #8 
0419- 00 0558 MODE -BY 0 O47D- A2 1450 INITX LDX #0 
0560 ; WHICH ACTIVITY NOW: O47F- E8 1466 CouNT INX 
8570 ; @ - SYNCHRONIZING 1476 ; COUNT HOW MANY TIMES 
9580 ; 1 - LEADER 1480 ; THROUGH THE LOOP 
0590 ; 2 - DATA @480- 2c 11 £8 1490 BIT $E811 
O41A- 66 8606 BLOCK -BY 6 1500 ; HAVE WE A TRANSITION YET? 
8610 ; WHICH BLOCK: 6483- 10 FA 1510 BPL COUNT 
0620 ; @ - LENGTH BLOCK 1528 ; BRANCH BACK IF NOT YET 
0630 ; 1 - PROGRAM BLOCK 0485- AD 10 E8 1530 LDA SE810 
O41B- 42 41 44 6640 BAD -BY 'BAD! 1540 ; RESET THE 6520 
G41E- 4F 4B 8650 OK +BY 'OK! 0488- AD 19 64 1550 LDA MODE 
06668 ; CHECKSUM MESSAGES 1568 ; WHAT WERE WE DOING? 
0670 ; 048B- FO 2C 1578 BEQ STARTUP 
0680 ; *** ENTRY POINT *** 048D- C9 61 1580 CMP #1 
0690 ; O48F- FO 2D 1598 BEQ STARTBIT 
0700 ; MUST BE AT $0420 1690 ; REAL DATA NOW 
0716 ; FOR THE 'BASIC' PROGRAM 0491- EO 40 1618 CPX #$40 
0720 ; 0493- 36 63 1620 BMI ZEROBIT 
6420- 4c 50 04 0730 dMP INIT 0495- 38 1630 SEC 
0740 ; SKIP PAST CODE WHICH MOVES 6496- BO 61 1640 BCS SETBIT 
6750 ; THE PROGRAM DOWN FROM $0861 1650 ; ** ALWAYS GOES ** 
6768 ; TO $0501. THIS CODE IS NEEDED 0498- 18 1660 ZEROBIT cL 
0778 ; BECAUSE WHEN LINE ZERO (THE 1676 ; THE CARRY BIT NOW INDICATES 
0786 ; PHONY BASIC PROGRAM) IS DELETED 1680 ; WHETHER WE GOT A ZERO OR ONE 
9796 ; 'END OF PROGRAM' ETC ARE ONLY 6499- 2E 18 64 1690 SETBIT ROL CHAR 
6800 ; ADJUSTED BY ONE PAGE MAXIMUM. 1708 ; ROTATE IT INTO THE CHARACTER 
9810 ; 049C- 88 1710 DEY 
9820 ; MOVE PROGRAM DOWN 3 PAGES 1726 ; FINISHED THIS CHARACTER? 
8830 ; 649D- DO DE 1736 BNE INITX 7 NO 
@423- AI 08 0848 MOVE LDA #8 O49F- AD 18 64 1740 LDA CHAR 
@425- 85 02 0850 STA *WHERE+1 O4A2- 91 61 1756 STA (WHERE) ,Y 
0427- AS 05 0860 LDA #5 1760 ; STORE THE CHARACTER 
0429- 85 2B 9870 STA *PGMEN+1 O4A4- CE 14 04 1770 DEC STLEN 
642B- AD 00 6880 LDY #6 1786 ; REDUCE CHARACTER COUNT 
642D- 84 01 6896 STY *WHERE O4A7- DO 68 1796 BNE NEX'TCHAR 
O42F- 84 2A 6900 STY *PGMEN O4A9- AD 15 64 1800 LDA STLEN+1 
0431- Bl 01 6919 MOVLP LDA (WHERE) ,Y 1810 ; FINISHED THIS BLOCK? 
6433- 91 2A 0920 STA (PGMEN) ,Y O4aC- FG 19 1820 BEQ FINMODE 
0435- E6 2A 0936 INC *PGMEN O4AE- CE 15 04 1830 DEC STLEN+1 
0437- DO 02 0940 BNE MOVOK O4Bl- £6 01 18409 NEXTCHAR INC *WHERE 
6439- E6 2B 6950 INC *PGMEN+1 1850 ; INCREMENT DATA POINTER 
043B- A5 2A 6960 MOVOK LDA *PGMEN 04B3- DO Cé 1860 BNE INITY 
843D- C5 2c 6978 CMP *PGMEN+2 O4B5- E6 62 1878 INC *WHERE+1 
@43F- DO 07 6980 BNE INWHERE O4B7- DO C2 1886 BNE INITY 
O441- A5 2B 6990 LDA *PGMEN+1 1896 ; ** ALWAYS GOES ** 
0443- C5 2D 1600 CMP *PGMEN+3 04B9- EE 19 64 1900 STARTUP INC MODE 
0445- DO 01 1610 BNE INWHERE 1910 ; THROW AWAY FIRST TRANSITION 
0447- 66 1020 RTS ; FINISHED O4BC- DO BF 1920 BNE INITX 
6448- 56 01 1939 INWHERE INC *WHERE 1936 ; ** ALWAYS GOES ** 
O44A- DO ES 1040 BNE MOVLP O4BE- EO 40 1940 STARTBIT CPX #$40 
644C- E6 02 1059 INC *WHERE+1 1956 ; IS IT A START BIT? 
O44E- DO El 1660 BNE MOVLP 64cO- 10 BB 1960 BPL INITX ; NO 
1076 ; ** ALWAYS GOES ** 64C2- EE 19 64 1970 INC NODE 
1680 ; 64C5- DO BE 1980 BNE INITX 
1096 ; INITIALIZATION 1996 ; ** ALWAYS GOES ** 
1190 ; O4C7- AD 1A 64 2060 FINMODE LDA BLOCK 
1116 ; SET UP POINTERS ETC ON ENTRY 2010 ; WE JUST LOADED A BLOCK. 
1126 ; SO IF WE HAD A BAD LOAD, WE 2026 ; WHICH ONE WAS IT? 
1136 ; CAN TRY AGAIN BY ENTERING 'RUN' G4CA- DO 62 2036 BNE LOADED 
1140 ; G4CC- AO FF 2040 LDA #S$FF 
0450- A9 04 1150 INIT LDA #4 O4CE- 4D 10 64 2050 EOR LENGTH 
0452- 8D 14 04 1160 STA STLEN 2060 ; CHECKSUM ON LENGTH BLOCK 
0455- 8D 17 04 1176 STA STLOC+1 @4D1- 4D 11 64 2070 EOR LENGTH+1 
6458- AS 10 1180 LDA #$10 O4D4- 4D 12 64 2080 EOR LENGTH+2 
O45A- 8D 16 64 1190 STA STLOC 64D7- CD 13 04 2090 CMP LENGTH+3 
O45D- AS BO 1200 LDA # O4DA- FO 67 2106 BEQ NEXTBLK 
O45F- 8D 15 84 1210 STA STLEN+1 O4DC- AD 3F 2110 LDA #$3F 
6462- 8D 19 64 1220 STA MODE 2120 ; BAD LOAD: PRINT QUESTION MARK 
6465- 8D 1A 04 1230 STA BLOCK 2130 ; AND QUIT WITH A 'BREAK' 
0468- 78 1240 SEI O4DE- 20 D2 FF 2140 JSR PRINT 
1259 ; DISABLE INTERRUPTS O4El- 58 2150 CLI 
0469- AD 1G E8 1260 LDA SE810 2160 ; QUIT NOW 
1270 ; CLEAR 6520 O4E2- 06 2170 BRK 
O46C- AD 3E 1286 LDA #$3E O4E3- AD 10 64 2180 NEXTBLK LDA LENGTH 
O46E- 8D 11 E8 1290 STA SE811 2190 ; INITIALIZATION FOR PROGRAM LOAD 
1360 ; MAKE 6520 RESPOND TO O4E6- 8D 14 04 2200 STA STLEN 
1316 ; LOW TO HIGH TRANSITION O4E9- AD 11 64 2210 LDA LENGTH+1 
1326 ; O4EC- 8D 15 04 2220 STA STLEN+1 
1330 ; FOR SOME TAPES THE '3E! O4EF- EE 14 64 2230 INC STLEN 
1340 ; ABOVE MUST READ '3C! 2246 ; LOAD CHECKSUM T00 
1359 ; (IE. HIGH TO LOW TRANSITION) 2250 ; MUST GO TWO BYTES PAST 
1366 ; 2260 ; THE END OF THE ACTUAL PROGRAM 
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2270 ; 0591- 85 02 3170 STA *WHERE+1 
O4F2- DO 03 2280 BNE LENL 0593- AD 02 88 3180 LDA $0802 
@4F4- EE 15 04 2290 INC STLEN+1 0596- C9 08 3196 CMP #$08 
@4F7- EE 14 64 2300 LEN1 INC STLEN 6598- FO 16 3200 BEQ TRANS 
G4FA- DO 63 2310 BNE LENOK 659A- AG C1 3218 CASSLP LDY #1 
O4FC- EE 15 64 2320 INC STLEN+1 3220 ; IT'S CASSETTE APPLESOFT 
O4FF- A9 08 2330 LENOK LDA #$08 3230 ; ORIGINAL ADDRESS WAS $3001 
2340 ; 059C- Bl 61 3240 LDA (WHERE) ,Y 
2350 ; ALWAYS LOAD AT $0801 059E- FO EB 3250 BEQ CASSREL 
2360 ; IF IT'S CASSETTE APPLESOFT 3260 ; ON THE SECOND PASS, IT LOOKS 
2370 ; CONVERT IT LATER 3270 ; LIKE ROM APPLESOFT 
2380 ; O5A0- 38 3280 SEC 
@501- 85 02 2390 STA *WHERE+1 O5Al- E9 28 3290 SBC #$28 
@503- A9 61 2400 LDA #$01 05A3- 91 61 3300 STA (WHERE) ,¥ 
0505- 85 01 2410 STA *WHERE O5A5- AA 3310 TAX 
0507- AS 35 2420 LDA *PGMEN+11 O5A6- 88 3320 DEY 
0509- CD 15 04 2430 CMP STLEN+1 O5A7- Bl 61 3330 LDA (WHERE) ,Y 
@50C- DO 13 2440 BNE DIFFPAGE O5A9- 85 O1 3340 STA *WHERE 
2450 ; CHECKING ON WHETHER THERE IS O5AB- 86 62 3350 STX *WHERE+1 
2460 ; ENOUGH MEMORY. O5AD- 4C 9A 65 3360 JMP CASSLP 
O50E- AD 14 64 2470 LDA STLEN O5B0- AQ 80 3370 TRANS LDY #0 
@511- C5 34 2480 CMP *PGMEN+16 O5B2- Bl 61 3380 LDA (WHERE) ,Y 
0513- 90 OE 2490 BCC NEMOK O5B4- AA 3390 TAX 
@515- A2 06 2500 MEMBAD LDX #6 O5B5- DS a8 3400 BNE NOTEN 
0517- BD 5F 06 2510 MEMCHR LDA TOOBIG,X O5B7- C8 3410 INY 
@51A- 20 D2 FF 2520 JSR PRINT 3426 ; LAST LINE OF TOKENS DONE? 
951D- CA 2530 DEX 05B8- Bl 61 3430 LDA (WHERE) ,Y 
O51E- 16 F7 2540 BPL MEMCHR OSBA- Da G3 3440 BNE NOTEN 
2550 ; MESSAGE DISPLAYED: QUIT NOW G5BC- 4C 12 06 3450 JMP TOKDONE 
9520- 60 2560 RTS OSBF- AG O1 3460 NOTEN Lpy #1 
0521- 90 F2 2570 DIFFPAGE BCC MEMBAD @scl- Bl al 3470 LDA (WHERE) ,Y 
0523- Ad 00 2580 MENOK LDA #$00 05¢3- BE 16 64 3480 STX STLOC 
@525- 8D 19 04 2590 STA MODE 3490 ; SET END OF CURRENT LINE 
9528- EE 1A 04 2600 INC BLOCK O5C6- 8D 17 04 3580 STA STLOC+1 
052B- 4C 7B 04 2610 OMP INITY @5C9- AG 04 3510 LDY #4 
G52E- 58 2620 LOADED ChE O5CB- E6 61 3526 TOTXT INC *WHERE 
2630 ; ALLOW INTERRUPTS NOW 3530 ; STEP PAST POINTER 
052F- AS 61 2640 LDA *WHERE 3546 ; AND LINE NUMBER 
2650 ;SET HIGH ADDRESS O5cD- DO 02 3550 BNE WHOK 
0531- 8D 16 04 2660 STA STLOC Q5Cr- B6 02 3560 INC *WHERE+] 
0534- A5 02 2670 LDA *WHERE+1 O5D1- 88 3570 WHOK DEY 
0536- 8D 17 04 2680 STA STLOC#1 @8D2- DO F7 3580 BNE TOTXT 
2690 ; INITIALIZATION FOR CHECKSUM g5D4- Bl 91 3590 TRLOOP LDA (WHERE) ,¥ 
2700 ; AND PROGRAM LINKAGE OSD6- co 22 3600 CMP #$22 
2710 ; 3610 ; IS IT A QUOTE? 
0539- Ad 68 2720 LDA #8 05D8- DO OF 3620 BNE NOQ 
053B- 85 62 2730 STA *WHERE+] OSDA- AD 19 04 3630 LDA MODE 
@53D- AX 05 2740 LDA #5 OSDD- FO G5 3640 BEQ MODEON 
O53F- 8D 62 64 2750 STA $0402 O5DF- CE 19 04 3650 DEC MODE 
9542- ag O1 2760 LDA #1 @5E2- FO 12 3660 BEQ NXTCHAR 
0544- 85 01 2770 STA *WHERE 3670 ; ** ALWAYS GOES ** 
9546- 8D G1 24 2780 STA $0401 O5E4- EE 19 04 3680 MODEON INC MODE 
9549- 8D 19 84 2790 STA MODE O5E7- DO OD 3690 BNE NXTCHAR 
2800 ;NOW USE 'MODE' AS QUOTE-MODE FLAG 3700 ; ** ALWAYS GOES ** 
2810 ; VALUES ARE: O5E9- AE 19 04 3710 NoQ LDX MODE 
2820 ; © - CURRENTLY INSIDE QUOTES OSEC- FO 68 3720 BEQ NXTCHAR 
2830 ; 1 - NOT IN QUOTES 3730 ; BRANCH IF WE ARE IN QUOTES 
2840 ; OSEE- AA 3740 TAX 
O54C- AS FF 2850 LDA #SEF @5EF- 16 05 3750 BPL NXTCHAR 
O54E- AO 00 2860 LDY #6 3760 ; ONLY TRANSLATE TOKENS 
0550- 51 @1 2870 CHKLOOP — EOR (WHERE) ,Y O5Fl- BD 00 07 3770 LDA $0700, 
2880 ; CHECKSUM CALCULATION 3786 ; TRANSLATE FROM TABLE 
0552- £6 01 2890 INC *WHERE O5F4- 91 01 3790 STA (WHERE) ,¥ 
0554- DO 02 2960 BNE ‘CHKEND O5F6- B6 O1 3800 NXTCHAR INC *WHERE 
0556- E6 02 2910 INC *WHERE+1 OSF8- DO 02 3810 BNE WHEOK 
0558- A6 O1 2920 CHKEND LDX *WHERE OSPA- E6 02 3820 INC *WHERE+1 
O55A- EC 16 04 2930 CPX STLOC O5FC- A5 Ol 3830 WHEOK LDA *WHERE 
055D- DO Fl 2940 BNE CHKLOOP OSFE- cb 16 G4 3840 CMP STLOC 
O55F- A6 02 2950 LDX *WHERE+1 3850 ; HAVE WE FINISHED THIS LINE? 
0561- EC 17 04 2960 CPX STLOC+1 9601- Do pl 3860 BNE TRLOOP 
0564- DO EA 2970 BNE CHKLOOP 0603- AS 02 3870 LDA *WHERE+] 
9566- Dl 61 2980 CMP (WHERE) ,¥ 0605- CD 17 04 3880 CMP STLOC+1 
9568- FO 15 2996 BEQ CHKOK 8608- DG CA 3896 BNE TRLOOP 
O56A- AD 1B 04 3000 LDA BAD @60A- AD 1 3000 LDA #1 
, 3010 ; PRINT 'BAD' 060C- 8D 19 04 3916 STA MODE 
O56D- 20 D2 FF 3620 JSR PRINT 3920 ; RESET QUOTE MODE FLAG 
@570- AD 1C 64 3030 LDA BAD+L O60F- 4C BO 05 3936 JMP TRANS 
@573- 20 D2 FF 3040 JSR PRINT 3940 ; 
0576- AD 1D 64 3050 LDA BAD+2 3950 ; FINISHED TOKEN TRANSLATION 
STI 28 D2 EE 3068 JSR BRINE 9612- EE 16 G4 3960 TOKDONE —_INC STLOC 
OB) De ATH REGGE ANIWAY 3970 ; INCLUDE THE '60 60' (END OF 
G57C- 4c 8B 05 3680 IMP CASSREL 3980 ; PROGRAM) IN THE LENGTH 
O57F- AD 1E 04 3090 CHKOK LDA OK 3990 ; 
3100 ; PRINT 'OK' 9615- D6 03 4000 BNE MORLOC 
Bee) 20402 Be Site JSR. PRINT 0617- BE 17 04 4010 INC STLOC+1 
pees ADITE ee. S128 LDA OK+1 G61A- EE 16 04 4020 MORLOC INC STLOC 
@588- 260 D2 FF 3130 JSR PRINT O61D- DO G3 4630 BNE LOCDON 
SoGb > A) OF BIAS ICRSSREE, BDA EL O61F- EE 17 04 4040 INC STLOC+1 
BSeD 85a 3158 STA *WHERE G622- AD 16 04 4059 LOCDON LDA STLOC 
BEE 89 108 G8 LDA #8 9625- 85 2C 4060 STA *PGMEN+2 
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0627- 85 2E 4070 STA *PGMEN+4 07B2- ; 
Hes AD 17 04 ange LDA STLOC+1 07B3- 30 4960 "BY $50 ; STOP 
- 90 SEC 67B4- 91 : ; 
862D- E9 63 4100 SBC #$03 O7BS- 33 4980 BY $92 ; ae * 
G62F- 85 2D 4110 STA *PGMEN+3 07B6- 93 4996 iBy $93 ; LOAD 
0631- 85 2F aia STA *PGMEN+5S O7B7- 94 5000 -BY $94 > SAVE 
F 07B8- 96 5610 -BY $96 ; 
4140 ; SET UP PROGRAM LINKS FOR 07B9- 97 5020 BY $09 ; PORE * 
4150 ; MOVE FROM $0801 TO $0561 O7BA- 99 5030 =BY $99 ; PRINT 
4635S BS ae ee i can a 67BB- 9A 5040 -BY S$9A 7 CONT 
0635- 85 01 4186 STA *WHERE O7BD. 9¢ ooee iB Sec i GEEAR 
- AS GB 4190 LDA #8 Q7BE- Al 7 ;G 
9639- 85 62 4200 STA *WHERE+1 O7BF- A2 3080 LY on2 a 
063B- AG BO 4210 RELLP LDY #0 07CO- A3 5090 =BY SA3 ; TAB( * 
963D- Bl 61 4220 LDA (WHERE) ,¥ 67Cl- A4 5160 «BY SA4 ; TO 
063F- 8D 14 04 4230 STA STLEN 07¢2 
eet ioe or Bee AS 5110 «BY $A5 ; EN 
0643- Bl 01 4250 LDA (WHERE) ,Y Aiea an Bie SEY. aS i Beet 
0645- FO 15 4266 BEQ RELDONE areca ai ae ee eee i gees 
0647- 8D 15 04 4270 STA STLEN+1 aac Piss eee 5 ae 
Boas ae aoe oun 97C6- A8 51508 «BY SA8 ; NOT 
geaee estas wae eee 43 @7C7- Ag 5168 =BY SA9 ; STEP 
064D- 91 1 4300 STA (WHERE) ,¥ ance an pie SEY eh ce 
O64F- AD 14 04 4310 LDA STLEN 7 “BY 28 c= 
0652- 85 01 4320 STA *WHERE Aiea eS 2aee 2A Be ig.  RRMES) 
0654- AD 15 04 4330 LDA STLEN+1 Wises oe zeue BY SAD if 
acer eae Big ee eters CC- AE 52108 -BY SAE ; * (EXPONENTIATION) 
6659- 4C 3B 06 4350 IMP RELLP oe a 2328 “BY G08 a ae 
865C- 4C 23 04 4360 RELDONE IMP MOVE 07CP- Bl 3232 By eet BOR 
O65F- 47 49 42 4370 TOOBIG -BY 'GIB OOT' 07 ; aby gBL ees 
cee on Ae ae DO- B2 5250 =BY $B2 78 
aeese Ba 87D1- B3 5260 -BY $B3 es 
4380 ; MESSAGE 'TOO BIG' REVERSED o7D3- Ba zeit spy pea Hee 
4390 -BA $0780 ; aoe ae ane 
nie aiD4 BG 5290 «BY $B6 ; ABS 
; D5- B 5300 «BY $B7 ; USR * 
; ee : 
fats ; * TOKEN TRANSLATION TABLE *** 9 7p6- BB 5310 BY $B8 } PRE 
i 97D7- 9D 5320 -BY $9D 7 *SCRN( 
ee i (SEE FOOTNOTES BELOW) e708 9D 5330 By Sop + *PDL 
; D9- Bg 5340 =BY $B9 ; POS 
86 . ; Hy 
a ee By aaa i a O7DA- BA 5350 -BY SBA ; SOR 
Hs ioe Oy tea i 87DB- BB 5360 «BY SBB ; RND * 
He qaG6 cay Ba ; Bra 67DC- BC 5376 -BY $BC 7 LOG 
ae aee pete ; aaa ®7DD- BD 5386 «BY SBD 7 EXP 
2 see oay bee o Ney 67DE- BE 5390 +BY SBE ; COS 
2 Apee tar ; O7DF- BF 5408 ~BY SBF ; SIN 
a hen +BY $ ° 7 DIM O7E0- CO 5410 -BY $CO 7 TAN 
oe ieee “BY aoe 7 BEAD ®7E1- Cl 5428 +BY SCl ; ATN 
Be Ha fey lean ; sane reoNe de oie ce 5430 «BY $C2 ; PEEK * 
9A * 3 *TEXT/CON E3- ¢ o J ; 
98 4550 -BY $98 7 PR#/PRINT# * O7E4- C4 3450 “By sca : STRS 
84 4560 BY $84 + IN#/INPUT# * O7E5- C5 5460 BY $C5 } VAL 
9E 4570 BY $9E ; CALL/sys  * O7E6- C6 5478 © /BY $Cé6 7 ASC 
9D 4586 -BY S9D 7 *PLOT O7E7- C7 5480 +BY $C7 3 CHRS 
9D 4596 -BY $9D ; *HLIN O7E8- C8 5490 «BY $C8 ; LEFTS 
9D 4600 «BY $9D 7 *VLIN O7E9- C9 5500 -BY $C9 ; RIGHTS 
an goug By =e ; eee? O7EA- CA 5516 «BY SCA ; MIDS 
. : 5520 ; 
9D 4630 BY $9D 7 *HCOLOR= 5538 ; REMAINDER NOT IMPLEMENTED 
20 aga By Sop ; puetor 5540 ; SUBSTITUTE 'REN' 
: ; 5550 ; 
9D 4660 «BY $9D 7 *XDRAW O7EB- 8F 8F 8F 5566 .BY S8F S8F $8F S8F S8F S8F 
A3 4676 ~BY $A3 3; *HTAB/NEW ** O7EE- 8F 8F 8F 
oF 4680 +BY SOF ; *HOME/OPEN ** O7Fl- 8F 8F 8F 5576 .BY S8F S8F S8F S$8F $8F S8F 
9D 4690 «BY $9D ; *ROT= O7F4- 8F 8F 8F 
9D 4708 -BY $9D 7 *SCALE= O7F7- 8F 8F 8F 5586 .BY S8F S8F S8F S8F S8F $8F 
9D 4710 BY $9D 3 *SHLOAD O7FA- 8F 8F 8F 
35 a138 Eey $38 i gemece O7FD- 8F 8F 8F 5596 .BY S8F S8F S8F 
. ; 5600 ; 
95 4740 -BY $95 7 *NORMAL 5610 ; COMMANDS WHICH ARE PRECEEDED BY 
95 4750 «BY $95 } * INVERSE 5620 ; AN ASTERISK ABOVE ARE NOT 
95 4760 ~BY $95 ; *FLASH 5639 ; IMPLEMENTED ON THE PET. THE ONES 
9D 4778 -BY $9D 7 *COLOR= 5648 ; WHICH DEPEND ON APPLE HARDWARE 
95 4780 «BY $95 7 *POP 5650 ; (GRAPHICS AND PDL) ARE TRANSLATED 
ae ies 2BY an ? EVaaB CLOSE: +e 5660 ; INTO 'CMD', THE OTHERS INTO 
S 7 5678 ; 'VERIFY' 
95 4816 =BY $95 7 *LOMEM 5680 ; 
95 4820 «BY $95 H *ONERR 5696 ; COMMANDS WITH AN ASTERISK TO 
2 ae 7By 23) ; A ReeAnL/TOAD 5% 5700 ; THE RIGHT MAY TRANSLATE BADLY. 
5710 ; 
94 4850 -BY $94 7 *STORE/SAVE ** 5726 ; COMMANDS WITH TWO ASTERISKS ARE 
ee noes By £2 : SSEBEDE: 5736 ; PHONY TRANSLATIONS FOR MANUAL 
E ; 5740 ; CONVERSION. 
89 4880 -BY $89 7 GOTO 5750 ; 
oh ange aby yen ; RON 5766 ; SEE ARTICLE FOR DETAILS. 
B 3 ; 5770 ; 
Bc 4910 =BY $8C ; RESTORE 5786 ; END OF PHONY BASIC PROGRAM 
8 4334 ee $35 ; Ae re 0860- 60 00 06 5798 -BY 00 0 
: 7 5800 -EN 
BE 4940 -BY $8E ; RETURN 
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APPLESOFT LOADER - TAPE CONTENTS 


File 1. ‘APP LOAD SOURCE” 
- The source for the program in the format used by 
Carl Mo SM/TED. 


? 


- Requires a command due to size. = 
: $4100 $6FFF will leave some room, ee ed 
i ai : os Hetricreal £9.95 
File 2. “APP LOAD SOURCE” - second copy ; Floancencale £9.95 
q é ” Surer-calc 619.95 
FILE 3. “‘APP LOAD OBJ Nache-cskc £29.95 
TY . Bk 8: ock 95 
- The object program. “Wikked : z 
- Can be LOADed and SAVEd from BASIC. (ic. doesn’t uy settee EAT ascut Nteest vate: coe = 
: : : encExelorer See hey vour rresran ; 
require machine-language monitor) 16k Usr-Dict/Xref Variable dictionary, cross-ref 6 
Bk *  Suee-Pias Create patterns, test reactions 8 


- The cassette must be moving before you type RUN. 
: Ma For rrosrans marked with *, please specify Version 1 (Basic 2.0) or 
File 4. ‘‘APP LOAD OBJ”’ - second copy Version 2 (Basic 3.0) ROMs, Urite for availability of rrosrans for 
Version 3 (Basic 4.0) ROMs and 80 colunn displays. HSS Disk rrosrans 


File 5. ‘APP LOAD IMAGE” 2 


- Memory-image of source program saved using machine- 


ACCESSORY INTERFACE 


language monitor 


- Resides in $4100 to $6800 All interfaces are ais eb ed fesleds and aranies i Ne 
- Allows PRINT and ASSEMBLE to function with disk Sestaners koow that aie Louse rctors.naac, batier ashlee! 


on of ASSM/ 


v D. (I think that’s all that wil Be che. incactoea etammeasicasteanissn ees, saasee, ec wee 
work). Use the following sequence of commands: industry standard parallel printers. Sinrly lug in to 
, . = ; Conruter and printer ... no software rceauired. Works vith 
SYS 4 : - get into machine-language monitor disk, other IEEE devices attached. $129.95 
-L “APP LOAD IMAGE” (load the source) TUGS14 Interface PET/CEM 10 RS-252 (aerial) printers, such as 
ASSM/TE the rorular Heathkit H-14, 1200 baud Cother rates available 
kload ASSM/TED) an resuest), No software reauired. Pover rack included: 
-G 2000 - invoke the assembler $79.95 


SET $4100 $6800 TU-PUE —Uideo Exransien for PET/CEM alleys plus-connection of 
HARD SET your computer to an external video monitor or TU comerter 
> Uniaue connectors alloy attachnent of other cables. 

ASSEMBLE peripherals via contact extensions. 629.95 
File 6. ‘‘APP LOAD IMAGE” - second copy c PA TU-G014 Interface TRS-80 to RS-232 Printers such as the Heathkit 
¢ WI4, Plugs into printer. Radio Shack exransion interface, 


Wo software reauired, allova printer to run at its necinun 
‘tree, Nothias else to buy! $69.95 


Virginia Micro Systems 
1408 Idaho Street, Woodbridge, Virginia 22191 
(703) 494-4057 


OTHER NEW PRODUCTS: 

-Screen formatting/editing 

-Printer drivers for NEC, TI-810, 
and other ASCII printers 


YOUR COMMUNICATING PET 


Your PET can now become an intelligent terminal: send and receive Word Pro files and 
programs. Your PETcan communicate with mainframes and other PETs. The PET can com- 
municate simultaneously with another PET, or you can transmit entire files. This package 


can be incorporated into your programs, used for business applications or two player games. 
Works on new PETs with 40 or 80 column screens and comes with demonstration programs. 
Price: $195.00 


Features include: 


-Full and half duplex, also local echo. 
-Supports odd, even and mark parity. 
-CRC, error checking for PET to PET files. 


1825 MONROE STREET, MADISON, WI 53711 (608) 255-5552 
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Capute 


Wherein we 
acknowledge recent 
goofs. .. 


This page broughi to you by Robert Lock, 
Editor/Publisher and our (sometimes hostile) 
burt always active readers. 


Corrections for Larry’s Atari Article on In- 
put/Output 


Here are some corrections to my article in the 
July/August COMPUTE on Input/Output on the 
ATARI. First of all, the listings are numbered incor- 
rectly. Listings 1 through 3 are numbered ok. Listing 
7 should be Listing 4. And, Listings 4 through 6 
should be Listings 5 through 7, respectively. 

In the text concerning the XIO9 and XIO5 
commands, references are made to an EOF 
character. These should be EOL characters instead. 
Also in this section, just under Listing 5, the 
paragraph on the XIO5 command makes com- 
parisons to the PRINT command several times. 
These comparisions should be to the INPUT com- 
mand instead. Thanks to the folks at Jridis for poin- 
ting out these last corrections. 


© 


Program Listings for COMPUTE 


Cursor control characters will appear in source listings 
as shown below: 


h=HOME , A=CLEAR SCREEN 
V=DOWN CURSOR , T=UP CURSOR 

>=RIGHT CURSOR, <=LEFT CURSOR 
IL=REVERSE , f=REVERSE OFF 


Graphics (i.e. shifted) characters will appear as the 
unshifted alphanumeric character with an underline. 
This does not apply to the cursor control characters. 
The Spinwriter thimble doesn’t have a backarrow 
symbol, so a ‘‘~’’ is used instead. 

The ‘‘’’ is used to indicate the beginning of a 
continuation line. It is also used to indicate the end 
of a line which ends with a space. This prevents any 


spaces from being hidden. CS 
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2806 Hiilsborough Street 
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919 833-1458 


The Great 
American Solution 
Machine. 


More than 50,000 But did you know it has schools—and businesses 
students, teachers and eoabilnes that are Br eS ict ae more 4 
eyond its price range? han 100, ommodore 
administrators solve : You ae aceon is tasks computers now at work. 
problems with this with The Commodore at a If you sense a snag in the 
reliable Commodore rice/performance ratio that flow of knowledge in your 
computer. leads the field. classes, we think you should 
3 You can also count on challenge The Commodore. 
You're looking at the The Commodore showing up Compare it against any 
Number One computer in for class every day. computer in—or above—its 
education today. It's a remarkably sophis- field. 
In fact, you've probably _ticated, remarkably reliable See if it won't raise the 
already used it. : machine. Around level of interest and accom- 
The Commodore. the world in plishment among your 
You know it teaches. : students. 
Guides. Challenges. And simplify the com- 


Analyzes. Organizes.— <x 


lex in your administrative 
Simplifies. F Z 


duties. 
All at a price that makes 
it stand alone. 
For the name of your 
nearest authorized Commo- 
dore dealer, just write to: 
Commodore Business 
Machines, Inc., 3330 Scott 
Blvd., Santa Clara, CA 95051 


Call now toll-free. Ask for operator 973: 


| 800-824-7888 


(In Calif., 800-852-7777) 
(in Alaska and Hawaii, 800-824-7919) 


C commodore 


